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Foreword 


You’ll have to forgive me if I am enthusiastic. 

It’s just that I am excited and somewhat amazed by this, our latest Adventure 
book — The Third Rainbow Book of Adventures. For one, I’m excited because 
I love to play Adventures and I can’t wait to see what our programmers have 
come up with this time. And, too, because this is also the most recent entry 
into our Rainbow Bookshelf series, which has been growing at a quite satisfying 
rate. 

I am very excited by the continuing interest in and devotion to the Color 
Computer. When we announce an Adventure contest in the THE RAINBOW, 
The Color Computer Monthly Magazine, we are Jlooded with entries from 
enthusiasts of all ages and backgrounds. It warms my heart to think that the 
CoCo Community is out there alive and well, willing to share ideas and make 
computing fun for all. 

Our part is a small one — the real credit for this book goes to the authors 
who spent untold hours, days, or probably more accurately, months writing, 
refining and debugging their Adventures for all of us. And, credit those people 
who support that hard work by purchasing the Adventure books. 

I want to thank those who brought this book together, too: our editors Jutta 
Kapfhammer and Philip Helm who judged the contest and wrote the stories; 
our art director Denise Webb; and our illustrator Wes Kendall. 

And it makes me feel good to know that we have kept our promise to the 
Community — the promise to continue to provide support to all CoCo users. 
The Adventures in this book can be run on the Color Computer 1, 2 or 3! Now 
that’s exciting! 

I know you’re eager to get started, so I won’t keep you long. Just a few 
thoughts as I look over the programs again. I’m sure these Adventures are going 
to become classics, much as the ones from our first and second Adventure 
books. The inventiveness and clever programming displayed by our contest 
winners are just wonderful. They have given us Adventures to help us break 
new ground with our beloved machine. We thank them, and you, the 
Adventurer, for making the Community an exciting place to be. Good luck! 

Lawrence C. Falk 
Publisher 
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Introduction 


When we accepted the challenge of judging THE RAINBOW’S third annual 
Adventure contest, which led to the editing of this book containing the winning 
entries, we knew that just having the opportunity to view the programs first¬ 
hand would be rewarding. But in order to pick the very best, we first needed 
to learn and understand the many new command concepts and programming 
techniques that broke new ground in the 1986 programming competition. And 
that was an Adventure in itself. 

The hours of trial and error, with the unfamiliar use of sophisticated parsers, 
icons, new dialogue allowing two-way communication, built-in graphics 
directional maps, and subgames within the various programs, was at first a 
frustrating experience. But by gradually learning the techniques associated with 
playing the Adventures, actually solving them boosted our egos, giving us a 
real feeling of accomplishment. 

We intend to pass on our enjoyment of these Adventure games, not our 
frustrations. With this in mind, the games have been arranged in sequential 
order according to difficulty to greatly benefit the new or novice Adventurer. 
From the first through the entire series of Adventures, the variety and 
progression of the new techniques and creativity becomes increasingly 
gratifying. By working your way through the book from beginning to end, the 
different procedures and command concepts will be learned, enhancing your 
skill level. 

This is not to insinuate, however, that if you are an experienced player you 
should skip right to the middle of the book to meet the serious competition. 
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All of the Adventures are quite challenging and can be played and thoroughly 
enjoyed by first-time or veteran players. If played in order, the games present 
an escalating challenge to the advanced. For the amateur, the Adventures serve 
as a guide to the mastery of Adventuring. 

The games are initiated with an introductory story intended to set the mood 
by explaining your role in the Adventure. Since all the games include a variety 
of features and are played in a number of different ways, the documentation 
following each story specifically details the playing instructions and any special 
commands that must be entered before beginning play. 

The BASIC program listings are formatted for a 32-character screen, so if you 
are typing in the programs, the printed listings will appear just as they do on 
the CoCo screen. Of course, The Third Rainbow Adventures Tape or Disk will 
save you a lot of time and unnecessary frustration. The individual program 
filenames from our tape and disk service are listed at the beginning of each 
program, along with the minimum system required to run them. 

By allowing you to become the Adventurer, the book becomes your ticket 
to a journey that promises to fulfill any madcap schemes you may be 
suppressing. The fictitiously created situations and life-threatening predica¬ 
ments will have you constantly devising escape tactics and out-of-this-world 
attempts to gain valuable treasures. 

Of course, a lot of travel will be involved. You can’t expect to achieve your 
objective without investigating every little nook and cranny. And there is a 
mountain of items to be found. Some may help you avoid the many puzzling 
obstacles, while others could help you obtain your fortune. 

The computer will give you your location and a description of the area 
immediately surrounding, showing exactly where you are and where you may 
proceed. To move in a given direction, most of the programs respond to NORTH, 
SOUTH, ERST and WEST. In some of the Adventures you may need to type GO 
before typing the direction, and oftentimes, the first letter of the direction is 
sufficient. 

One of the basic necessities to learn is the ability to command action. Most 
of the programs respond to two-word commands, which consist of a verb 
followed by a noun, such as OPEN DOOR. Each Adventure accepts different verbs 
and, in most cases, a complete list can be obtained by either typing VERB or 
VOCRBULRRV. 

You will find LOOK and EXRMINE to be the most beneficial verbs in 
Adventuring. Of course, you’ll have to enter the name of the object you want 
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more information about (e.g., EXRMINE PRPER). All sorts of things can be found 
this way. Some will be of personal value, while others may help achieve the 
objective or prove to be lifesaving. Also, a brief description of your current 
location can usually be observed by simply entering LOOK. 

Of course, to use the objects found, you first have to obtain them. To pick 
up an object, most Adventures respond to GET followed by the item you want 
to pick up (e.g., GET ROPE). However, if you are in a hardware store, f or instance, 
you may need to BUY ROPE in order to obtain it. And, of course, you will more 
than likely need money with which to make the purchase, and that may require 
going elsewhere to GET MONEY and returning later to make the buy. 

Adventure games make heavy use of your ability to carry things around. For 
example, you might find batteries in one location, and need them to light a 
flashlight somewhere else. But, you’ll probably find restrictions on the number 
of items you can carry at one time. 

Type INVENTORY and the computer will list the items you are carrying and 
will tell you when you are carrying too much. So, if you encounter an object 
you think may be useful down the road, DROP the least valuable object and GET 
the most useful object. You can always come back to the one dropped later 
in the Adventure, if you realize it is important. 

Use logic, be creative and try relating to the objects found in the Adventure. 
If the computer tells you that you are getting hungry or thirsty, it would 
probably be a good idea to find something to ERT or DRINK. 

If one verb doesn’t work, try another. For instance, to open a door you may 
need to KICK DOOR or PUSH DOOR. However, if the door is locked, you may need 
to first GET KEY before you can UNLOCK DOOR. And in some cases, there may 
not be a key, so you may need a special tool to get the door open, like a gun 
to SHOOT LOCK or a crowbar to PRY LOCK. Or, to further complicate matters, 
you may even have to find a secret combination. 

However, don’t expect logic to always prevail. Programmers make it a real 
point to find creative uses for certain objects. You must use your imagination 
to match their creativity in finding the intended use of the object. You will find 
some of the Adventures more logical than others, and each should be 
approached with that in mind. 

The most important facet of Adventure solving is the fundamental art of map 
drawing. It will undoubtedly save you a lot of time and endless wandering. To 
start, on a very large piece of paper, draw a box to represent your starting point. 
Then, as you move in the available directions, draw boxes f or each new location 



and use connecting lines to indicate the directions of the movement made and 
the optional movements available. 

Be sure to label each location and include any items found there. For example, 
if your location is described as: YOU ARE IN THE FOYER OF A SMALL RESIDENTIAL 
HOME. THERE IS A PLANT ON THE TABLE HERE. A STAIRWAY LEADS NORTH. THE 
KITCHEN IS TO THE EAST. THE DEN IS TO THE WEST. Your map should look 
something like this: 



- START - 

A technique you will find particularly useful is one that allows you to save 
a game where you are, and then pick up again at the same point later. This 
feature should be used whenever available, to avoid the frustration of restarting 
a game when you are forced to stop playing and haven’t completed it. Or, if 
you feel you are about to attempt something which may get you killed, SAVE 
the game before doing it. Since some games take days, and sometimes, weeks 
to solve, you will really appreciate not having to track your way through what 
has already been accomplished. 

So, if you are constantly in search of fun, excitement, mystery, challenge and 
danger, then this fantastic collection of cleverly designed Adventure games will 
meet your insatiable demands. Or if life has become a little stale lately, and 
boredom seems to be more the norm than the unusual, this vast assortment 
of enterprising encounters will undoubtedly have a dramatic effect on your 
current lifestyle. 

Congratulations are in order to the authors of these fine programs. All of 
them should take great pride in their dedication in creating these quality 
programs that exhibit such sophistication, professionalism and creativity. 

— Jutta Kapfhammer and Philip Helm 
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ESCAPE 


w 


Program by Matt Hazard 


elcome to Ludlow Manor, the entrance to a 
world of Adventure and mind-twisting fantasy. 
If you have come in search of excitement, the 
request will indeed be granted. But before 
committing yourself and entering what is 
designed to be a harmless diversion, one 
important question needs to be addressed. Are 
you certain you can escape? 

Before answering haphazardly though, some 
additional information about the challenge 
could help ensure that the meaning of the 
inquiry is fully comprehended. 

Four seemingly simple rooms have been 
selected as your official starting point. How¬ 
ever, once you enter the first, and the door 
closes behind, the claustrophobic situation may 
temporarily confuse you, as exiting appears to 
be all but impossible. 

But don’t despair, patience is a virtue. A cool 
head and some creative investigation will 
eventually be rewarded, and the secret to 
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escaping Ludlow Manor will undoubtedly be discovered. 

However, in doing so, you may trigger a craving for more excitement and 
danger; resistance will be out of the question because the seed of Adventure 
addiction will be planted the very moment you conquer the first of the many 
unequivocal opportunities presented to you. 

Escape is a joystick-controlled graphics Adventure. Movement is performed 
using the right joystick and your location is designated by a cursor. By 
positioning the cursor over a desired area, activity is initiated by pressing the 
firebutton. The gun, if obtained, is fired by pressing the spacebar. 


Matt Hazard is a sophomore at Midview High School and is currently 
participating in Air Force Junior R. O. T. C. Drill Team. His interests include 
skiing, cross country running, role-playing games and baseball. Questions 
or comments may be addressed to Matt at 1360 East Capel Rd., Columbia 
Station, OH 44028. Please enclose an SASE when requesting a reply. 


ESCAPE 16KECB 


5 ' ESCAPE! - BY MATT HAZARD, 13 
60 EAST CAPEL ROAD, COLUMBIA STA 
TION, OHIO 44028 (216)-748-3417 
10 DIM Cl(3,3),C2(3,3) 

20 PMODE4,1:PCLS:LINE(0,0)-(3,3) 

,PSET,B:LINE(1,1)-(2,2),PSET,B s G 
ET(0,0)-(3,3),C1,G 
30 PCLS:GET(0,0)—(3,3),C2,G 
40 PMODE4,l:SCREENl,l:PCLS:REM 
start room - cabinet&painting.. 
50 LINE(0,0)-(20,19),PSET:LINE-( 

235.19) ,PSET:LINE-(255,0),PSET:L 
INE(0,191)-(20,155),PSET:LINE-(2 
35,155),PSET:LINE-(255,191),PSET 
:LINE(20,19)-(20,155),PSET:LINE( 

235.19) -(235,155),PSET:'room 

60 LINE(223,155)-(223,56),PSET:L 
INE-(168,56),PSET:LINE-(168,155) 

,PSET:DRAW"BM216,104;R4D4L4U4":' 
door 

70 LINE(32,100)-(140,104),PSET,B 
:LINE(36,104)-(136,155),PSET,B:L 
INE(84,104)-(84,155),PSET:LINE(7 
2,128)-(80,132),PSET,B:LINE(88,1 
28)-(96,132),PSET,B:'cabinet 


80 LINE(32,48)-(68,76),PSET,B:LI 
NE(36,52)-(64,72),PSET,B:DRAW"BM 
32,48 ;F4;BM68,48;G4;BM68,7 6;H4;B 
M3 2,76;E4":DRAW"BM44,58;E2R8F2D8 
G2L8H2U8;BM46,58;R2;BM52,58;R2;B 
M50,60;D3;BM4 6,65;F1R6E1;BM40,56 
;R20L4U2L12D2":PAINT(4 6,55) ,5,5: 
'painting 

90 CX=JOYSTK(0)*4:CY=JOYSTK(l)*3 
:P=PEEK(65280) 

100 PUT(CX,CY)-(CX+3,CY+3),Cl,PS 
ET 

110 IF P=126 OR P=2 54 THEN GOSUB 
200 

120 GOSUB 160 
130 TM=TM+1 

140 FOR Z=1T05:PLAY"L255;01;G":N 
EXT Z 

150 GOTO 90 

160 REM iiiiiiiiiiiiiiiiiiiiii 
170 CS(1)=CS(1)+1:IF CS(1)>1 THE 
N 180 ELSE 190 

180 PUT(X,Y)-(X+3,Y+3),C2,PSET 

190 X=CX:Y=CY:RETURN 

200 IF CX>70 AND CX<80 AND CY>12 

8 AND CYC132 THEN 250 

210 IF CX>215 AND CX<221 AND CY> 
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103 AND CY<109 THEN 310 
220 IF CX>32 AND CX<68 AND CY>48 
AND CY<76 THEN 330 
230 IF CX>86 AND CX<96 AND CY>12 
8 AND CY<132 THEN 360 
240 RETURN 

250 LD1=LD1+1:IF LD1>1 THEN RETU 
RN ELSELINE(72,128)-(80,132),PRE 
SET,B:LINE(35,104)-(8 4,15 5) ,PSET 
,B:LINE(35,130)-(84,130),PSET 
260 IF RND(3)=1 THEN DRAW"BM44 / 1 
30;U14R8D14":LINE(44,122)-(52,12 
0),PSET:LINE(44,126)-(52,124),PS 
ET:FOR Z = 1 TO 5:SOUND 255,1:NE 
XT Z:FOR Z=1T0500:NEXT Z:CLS:PRI 
NT"YOU FOUND A COKE.":CK=CK+1:FO 
R Z=1 TO 1000:NEXT Z:PMODE4, 1: SC 
REEN1,1 

270 LINE(43,115)-(53,129),PRESET 
/ BF 

280 IF RND(3)=1 THEN DRAW"BM60,1 
55;R8U3L8D3;BM60 / 152;E2R8D3G2;BM 
68,152;E2":FOR Z=1T05:SOUND255,1 
:NEXTZ:FORZ=1TO500:NEXTZ:CLS:PRI 
NT"YOU FOUND A BAR OF SOAP.":SP= 
SP+1:FORZ=1TO1000:NEXTZ:PMODE4,1 
:SCREEN1,1 

290 LINE(59,148)-(72,154),PRESET 
/ BF 

300 RETURN 

310 IF KY<1 THEN CLS:PRINT"THE D 
OOR IS LOCKED AND YOU HAVE":PRIN 
T:PRINT"NO KEY.":FOR Z= 1 TO 10 
00:NEXT Z:PMODE4,1:SCREEN1,1:RET 
URN 

320 CLS:PRINT"YOUR KEY UNLOCKS T 
HE DOOR AND":PRINT:PRINT"YOU ENT 
ER A DIFFERENT ROOM.":F0RZ=1T017 
50:NEXTZ:GOTO400 
330 PP=PP+1:IF PP>1 THEN RETURN 
ELSE LINE(32,48)-(68,76),PRESET, 
BF:LINE(44,56)-(56,68),PSET,B:Cl 
RCLE (50,58 ) , 2 : DRAW" BM50,60 ; D6U2R 
2L2U2R2":F0RZ=1T05:SOUND255,1:NE 
XTZ:F0RZ=1T0500:NEXTZ 
340 CLS:PRINT"YOU FOUND A KEY BE 
HIND THE":PRINT:PRINT"PAINTING." 

:KY=KY+1:FORZ=1TO1000:NEXTZ:PMOD 
E4,1:SCREEN1,1 

350 LINE(46,57)-(54,66),PRESET,B 
F:RETURN 

360 RD1=RD1+1:IF RD1>1 THEN RETU 
RN ELSE LINE(87,127)-(97,133),PR 
ESET,BF:LINE(84,130)—(136,130),P 
SET 

370 IF RND(3)=1 THEN CIRCLE(120, 


124),6:DRAW"BM118,121;U3R4D3":FO 
RZ=1T05:SOUND2 55, 1:NEXTZ:F0RZ=1T 
0500:NEXTZ:CLS:PRINT"YOU FOUND A 
CANTEEN OF WATER.":WT=WT+1:FORZ 
=1TO1000:NEXTZ:PM0DE4,1:SCREEN1, 
1:LINE(112,116)-(128,129),PRESET 
, BF 

380 IF RND(3)=1 THEN DRAW"BM104, 
155;U11R1U1R2U2D2R2D1R1D11;BM104 
,147;R6":F0RZ=1T05:SOUND255,1:NE 
XTZ:FORZ=1TO500:NEXTZ:CLS:PRINT" 
YOU FOUND A CAN OF RAID.":RI=RI+ 
1: FORZ=1TO1000 : NEXTZ : PM0DE4,1: SC 
REEN1,1: LINE (102,141) -(112,154) , 
PRESET,BF 
390 RETURN 

400 PM0DE4,1:SCREEN1,1:PCLS:REM 
room with air vent 
410 LINE(0,0)-(20,19),PSET:LINE- 
(235,19),PSET:LINE-(255,0),PSET 
420 LINE(0,191)-(20,155),PSET:LI 
NE-(235,155),PSET:LINE-(255,191) 

, PSET 

430 LINE(20,19)-(20,155),PSET:LI 
NE(235,19)-(235,155),PSET:'room 
440 LINE(172,40)-(212,64),PSET,B 
:F0RZ=172T0212STEP8:LINE(Z,40)-( 
Z , 64) ,PSET 

450 NEXTZ:LINE(172,48)-(212,48), 
PSET:LINE(172,56)-(212,56),PSET: 
'duct 

460 LINE(116,155)-(106,174),PSET 
: LINE-(10,174) ,PSET:LINE(20,168) 
-(26,168),PSET 

470 LINE-(30,160),PSET:LINE-(24, 
160),PSET:LINE-(20,168),PSET:'tr 
ap door 

480 CX=JOYSTK(0)*4:CY=JOYSTK(1)* 
3:P=PEE K(65280) 

490 PUT(CX,CY)-(CX+3,CY+3),C1,PS 
ET 

500 IF P=126 OR P=254 THEN GOSUB 
580 

510 GOSUB 550 
520 TM=TM+1 

530 FOR Z=1T05:PLAY"L255;03;C":N 
EXTZ 

540 GOTO 480 

550 CS(2)=CS(2)+1:IF CS(2)>1 THE 
N 560 ELSE 570 

560 PUT(X,Y)-(X+3,Y+3),C2,PSET 

570 X=CX:Y=CY:RETURN 

580 REM iiiiiiiiiiiiiiiiiiiiiii 

590 IF CX>22 AND CX<28 AND CY>16 

0 AND CYC168 THEN 620 

600 IF CX>172 AND CX<212 AND CY> 
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40 AND CY<64 THEN 650 
610 RETURN 

620 TD=TD+1:IF TD>1 THEN RETURN 
630 LED=LED+1:LINE(19,159)-(32,1 
71) ,PRESET,BF:LINE(28,160)-(104, 
160),PSET:LINE(28,170)-(104,170) 

,PSET:F0RZ=3 6T09 6STEP12:LINE(Z,1 
60)-(Z,170),PSET:NEXTZ:F0RZ=1T05 
:S0UND240,1:NEXTZ:F0RZ=1T0500:NE 
XTZ:CLS:PRINT"YOU FOUND A SMALL 
LADDER":PRINT 

640 PRINT"BENEATH THE TRAP DOOR. 
":FORZ=1TO1000:NEXTZ:PMODE4,1:LI 
NE(24,158)-(106,172),PRESET,BF:S 
CREEN1,1:RETURN 

650 IF LEDOI THEN CLS: PRINT"THE 
AIR VENT GRILL IS OUT OF":PRINT 
:PRINT"YOUR REACH.":FORZ=1TO1000 
:NEXTZ:PMODE4,1:SCREEN1,1:RETURN 
660 LINE(188,84)-(188,160),PSET: 
LINE(198,84)-(198,160),PSET:FORZ 
=92T0152STEP12:LINE(18 8,Z)-(198 , 
Z),PSET:NEXTZ 

670 PMODE4,1:SCREEN1,1:LINE(172, 
40)-(212,64),PSET,B:LINE(132,168 
)-(172,170),PSET,BF:LINE(173,41) 
-(211,63),PRESET,BF:F0RZ=1T05:SO 
UND240,1:NEXTZ:FORZ=1TO500:NEXTZ 
:CLS:PRINT"YOU CLIMB YOUR LADDER 
, REMOVE":PRINT:PRINT"THE GRILL, 
AND CRAWL INTO THE" 

680 PRINT:PRINT"DARK AIR VENT.": 
FORZ=1TO2000:NEXTZ:GOTO 710 
690 REM crawling in air vent 
700 PUT(CX-5,CY-5)-(CX+7,CY+7) , S 
G,PSET 



710 F0RZ=1T05:SOUND225,1:NEXTZ:F 
0RZ=1T0500:NEXTZ:CLS:PRINT"YOU C 
RAWL ALONG THE DARK AIR":PRINT:P 
RINT"VENT AND EXIT INTO A LARGE" 
:PRINT:PRINT"ROOM.":FORZ=1TO1500 
:NEXTZ:PMODE4,1 
720 REM draw large room 


730 PMODE4,1:PCLS:DIM SG(12,12): 
DRAW"BM101,9;F1D1R4E1R2E1U1;BM10 
4,12;R2D1L2R1D2F1D1G1R1G1":GET ( 
100,8)-(112,20),SG,G 
740 PCLS:SCREEN1,1:LINE(3 2,2 8)-( 
223,136),PSET,B:LINE(0,0)-(32,28 
),PSET:LINE(255,0)-(223,28),PSET 
:LINE(255,191)-(223,136),PSET:LI 
NE(0,191)-(32,136),PSET 
750 LINE(32,68)-(223,76),PSET,B: 
LINE(86,136)-(89,84),PSET,B:LINE 
(86,84)-(169,87),PSET,B:LINE(166 
,84)-(169,136),PSET,B 
760 DRAW"BM116,118;R24F2D2G2L24H 
2U2E2F2D2G2;BM120,122;R7;BM126,1 
20;R5;BM131,122;R2;BM135,121;R4" 
770 LINE(108,135)-(111,128),PSET 
:LINE-(109,124),PSET:LINE-(112,1 
24),PSET:LINE(113,125)-(142,125) 

,PSET:LINE(143,124)-(146,124),PS 
ET:LINE-(144,128),PSET:LINE-(147 
,135),PSET:LINE-(144,135),PSET 
780 LINE-(140,128),PSET:LINE-(11 
4,128),PSET:LINE-(111,135),PSET: 
LINE-(108,135),PSET:PAINT(127,72 
) ,1,1 

790 DRAW"BM208,67;U9E1U1E1U1E1U5 
R2D5F1D1F1D1F1D9;BM208,60;R7;BM2 
08,63;R7" 

800 DRAW"BM163,38;D3L27U2R27;BM1 
39,42;G1L2U4L24R3U1R4;BM13 6,43 ; L 
23D2G1L1H1U2R5;BM112,39;G1L2D4;B 
M108,41;L2G1L2H1L14G1L2G1L4D8R4E 
1R2E1R3E1R3E1R3E1R2D1R3U1E2R3;BM 
8 2,4 3 ; D8 " 

810 DRAW"BM68,100;R3F4D3G4L3H4U3 
E4;BM69,104;R1D1R1D1L1D1L1U1L1U1 
R2D2L1" 

820 CX=JOYSTK(0)*4:CY=JOYSTK(1)* 
3:P=PEEK(65280) 

830 PUT(CX,CY)-(CX+3,CY+3),Cl,PS 
ET 

840 IF P=126 OR P=254 THEN GOSUB 
1010 

850 GOSUB 910 
860 TM=TM+1 

870 FOR Z=1 TO 5:PLAY"L255;A":NE 
XTZ 

880 S$=INKEY$:IF S$="" THEN 820 
890 IF S$=CHR$(32) THEN GOSUB 94 
0 ELSE 820 
900 GOTO 820 

910 CS(3)=CS(3)+1:IF CS(3)>1 THE 
N 920 ELSE 930 

920 PUT(X,Y)-(X+3,Y+3),C2,PSET 
930 X=CX:Y=CY:RETURN 
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940 BT=BT-1:IF BT<1 THEN RETURN 
950 IF STGOl THEN RETURN 
960 IF (CX-6)<0 OR (CY-6)<0 THEN 
RETURN 

970 PUT(CX-5,CY-5)-(CX+7,CY+7) , S 
G,PSET 

980 FOR Q=31 TO 1 STEP-5:FORZ=10 
0 TO 255 STEP 50:PLAY"V=Q;L=Z?C" 
:NEXT Z / Q:PLAY"V15" 

990 IF CX>63 AND CX<76 AND CY>99 
AND CY<112 THEN 1120 
1000 RETURN 

1010 IF CX>80 AND CX<164 AND CY> 

35 AND CY<52 THEN 1060 

1020 IF CX>63 AND CX<76 AND CY>9 

9 AND CY<112 THEN 1090 

1030 IF CX>207 AND CX<217 AND CY 

>53 AND CY<68 THEN 1100 

1040 IF CX>113 AND CX<143 AND CY 

>117 AND CY<125 THEN 1110 

1050 RETURN 

1060 GS=GS+1:IF GS>1 THEN RETURN 
1070 FOR Z=1T05:SOUND225,1:NEXTZ 
:CLS:PRINT"YOU TAKE THE NICE SHO 
TGUN OFF":PRINT:PRINT"THE WALL A 
BOVE THE MANTLE AND":PRINT:PRINT 
"NOTICE ITS LOADED WITH EIGHT":P 
RINT:PRINT"ROUNDS OF 12-GAUGE AM 
MUNITION.":PRINT:PRINT"< S PACEBAR 
FIRES>":F0RZ=1T022 50 
1080 NEXTZ:PMODE4,1:LINE(76,36)- 
(168,56),PRESET,BF:SCREEN1,1:STG 
=STG+1:BT=8:RETURN 
1090 F0RZ=1T05:SOUND225,1:NEXTZ: 
CLS:PRINT"THIS IS A SMALL KEYHOL 
E IN THE":PRINT:PRINT"WALL, BUT 
YOUR KEY DOES NOT FIT":PRINT:PRI 
NT"THE HOLE.":FORZ=1TO1750:NEXTZ 
:PMODE4,1:SCREEN1,1:RETURN 
1100 F0RZ=1T05:SOUND225,1:NEXTZ: 
CLS:PRINT"THE OBJECT ON THE MANT 
LE IS AN":PRINT:PRINT"ANTIQUE BO 
TTLE AND IS OF NO USE."?:F0RZ=1T 
01500:NEXTZ:PM0DE4,1:SCREEN1,1:R 
ETURN 

1110 F0RZ=1T05:SOUND225,1:NEXTZ: 
CLS:PRINT"THE FIREPLACE HAS A LO 
G IN IT":PRINT:PRINT"AND IT IS N 
OT LIT.":F0RZ=1T012 50:NEXTZ:PMOD 
E4,1:SCREEN1,1:RETURN 
1120 REM fireplace turns 
1130 LINE(90,88)-(165,135),PRESE 
T,BF:LINE(104,100)-(159,119),PSE 
T,B:LINE(88,86)-(104,100),PSET:L 
INE(88,135)—(104,119),PSET:LINE( 
159,92)-(159,127),PSET:LINE(167, 


86)-(159,92),PSET:LINE(167,135)- 
(159,127),PSET 

1140 F0RZ=1T05:SOUND225,1:NEXTZ: 
F0RZ=1T0500:NEXTZ:CLS:PRINT"THE 
FIREPLACE SLIDES INTO THE":PRINT 
:PRINT"FLOOR AFTER YOU SHOT THE" 
:PRINT:PRINT"KEYHOLE REVEALING A 
TUNNEL.":FORZ=1TO1750:NEXTZ 
1150 F0RZ=1T05:SOUND225,1:NEXTZ: 
F0RZ=1T0500:NEXTZ:CLS:PRINT"YOU 
ENTER THE TUNNEL AND IT":PRINT:P 
RINT"GETS HIGHER AS YOU PROGRESS 
.":PRINT:PRINT"YOU EXIT INTO A N 
EW ROOM.":F0RZ=1T0 2000:NEXTZ 
1160 PM0DE4,1:PCLS:SCREEN1,1:LIN 
E (32,28)-(2 23,14 4) ,PSET,B:LINE(2 
55,191)-(223,144),PSET:LINE(255, 
0)-(223,28),PSET:LINE(0,0)-(32,2 
8),PSET:LINE(0,191)-(32,144),PSE 
T 

1170 LINE(44,56)-(100,144),PSET, 
B:LINE(56,56)-(56,131),PSET:LINE 
- (44,14 3) ,PSET:DRAW"BM53,9 4 ? D3L1 
G1L1U3R1E1R1" 

1180 LINE(176,56)-(200,88),PSET, 
B: LINE(180,60) — (195,84) ,PSET,B:D 
RAW"BM176,56 ? F4 ? BM200,56 ?G4 ? BM20 
0,88;H4?BM176,88;E4" 

1190 DRAW"BM76,139;F1D19F1D3F2R4 
E2U2L7R7U1E1U21F3U4G1E1U4R1L5D4H 
1L1H1L1H2L2H2U19R2E4F1R1E1R3F3D2 
2L2 " 

1200 DRAW"BM75,139 ?G1D19G1D3G2L4 
H2U2R7L7U1H1U21G3U9E1U6F1R2F1R2F 
1R2E1R4U6L3G1D4U4L2H1L2H1U5" 

1210 DRAW"BM7 6,131? G1L1G1L2G2L1G 
1L1G5 ? BM76,112?L3H4G1L1H1L3G3D12 
F3 " 

1220 DRAW"BM79,115 ?R1D1L1U1? BM79 
,121?R1D1L1U1? BM79,127? R1D1L1U1" 
1230 DRAW"BM82,108 ?U8H4L5G4D8 ? BM 
70,99 ?R10H1L7E1R5?BM7 2,101?R1D1L 
1U1? BM78,101? R1D1L1U1? BM75,10 3 ? R 
1D1F1L3E1R1H1? BM73,10 8 ? R5 » 

1240 LINE(65,144)—(73,144),PRESE 
T:LINE(78,144)-(86,144),PRESET:D 
RAW"BM85,115 ? D18" 

1250 CX=JOYSTK(0)*4:CY=JOYSTK(1) 
*3:P=PEEK(65280) 

1260 PUT(CX,CY)-(CX+3,CY+3),Cl,P 
SET 

1270 IF P=126 OR P=254 THEN GOSU 
B 1590 

1280 GOSUB 1340 

1290 TM=TM+1:VG=VG+1:IF VG=15 TH 
EN 1380 
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1300 IF VG=10 THEN GOSUB 1370 
1310 FOR Z=1T05:PLAY"V15;L255;03 
;A":NEXT Z 

1320 S$=INKEY$:IFS$="" THEN 1250 
ELSE IF S$=CHR$(32)THEN GOSUB 1 
410 ELSE 1250 
1330 GOTO 1250 

1340 CS(4)=CS(4)+1:IF CS(4)>1 TH 

EN 1350 ELSE 1360 

1350 PUT(X,Y)-(X+3,Y+3),C2,PSET 

1360 X=CX:Y=CY:RETURN 

1370 IF KD=>1 THEN 1310 ELSE LIN 

£(60,116)-(75,128),PRESET,BF:DRA 

W"BM60,116;D7R1E2D1R1F1R1U8;BM61 

,124;G2F1R1F1R2E1R1E1H2;BM62,125 

;R2D2L2U1R1":RETURN 

1380 IF KD=>1 THEN 1300 ELSE DRA 

W"BM57,116;D3G4F3G2F2R1E1F4E4R1F 

2U4E3H3U4G2L1H3G3H3" 

1390 FORQ=31 TO 1 STEP-5:FOR Z=2 
55TO100STEP -50:PLAY"V=Q;L=Z;C": 
NEXT Z,Q:FORZ=l TO 250:NEXT Z 
1400 CLS:PRINT"YOU ARE SHOT BY Y 
OUR UNCLE" :PRINT:PRINT"KERMIT'S 
ROBOT. GAME OVER.":GOTO 1710 
1410 BT=BT-1:IF BT<1 THEN RETURN 
ELSE 1420 

1420 IF STG<1 OR STG>1 THEN RETU 
RN 

1430 IF (CX-6)<0 OR (CY-6)<0 THE 
N RETURN 

1440 PUT(CX-5,CY-5)-(CX+7,CY+7) , 
SG,PSET 

1450 FOR Q=31T01STEP-5:FORZ=100T 
O255STEP50:PLAY"V=Q;L=Z;C":NEXTZ 
/ Q 

1460 IF CX>67 AND CX<84 AND CY>1 
10 AND CY<131 THENSP=1:GOTO 1490 
1470 IF CX>70 AND CX<82 AND CY>9 
8 AND CY<110 THEN SP=2:GOTO 1490 
1480 RETURN 

1490 KD=KD+1:IF KD>1 THEN RETURN 
EDIT 1410 

1500 F0RZ=1T05:S0UND210,1:NEXTZ: 
FORZ=1TO500:NEXTZ:CLS:PRINT"YOUR 
SHOT TO HIS ";:IF SP=1 THEN PRI 
NT"CHEST"; 

1510 IF SP=2 THEN PRINT"HEAD"; 
1520 PRINT" KILLED":PRINT:PRINT" 
YOUR UNCLE KERMIT'S ROBOT!" 

1530 F0RZ=1T01250:NEXTZ:PMODE4,1 
:LINE(59,94)-(92,167),PRESET,BF 
1540 DRAW"BM56,144;R10;BM66,14 4; 
R7;BM66, 14 7;R6U6H1L1H1G1L1G1D7;B 
M80,147;R6U6H1L1H1G1L1G1D7" 

1550 DRAW"BM72,14 6;R3E1F1R2;BM76 


,145;U3;BM73,141;R1E1R2F1R1;BM69 
,13 9;E2R1E1R6F1R1F2;BM73,13 5;E2R 
2F2 " 

1560 DRAW"BM69,139;L9H1E2R2D3U3R 
28F2G1L3U3D3L6" 

1570 LINE(128,144)-(86,144),PSET 
:LINE(67,14 4)-(74,14 4),PRE SE T:PS 
ET(72,144,1) 

1580 SCREEN1,1:GOTO 1480 
1590 IF CX>176 AND CX<200 AND CY 
>56 AND CY<88 THEN 1630 
1600 IF KD<1 AND CX>68 AND CX<88 
AND CY>112 AND CY<132 THEN 1640 
1610 IF KD=>1 AND CX>60 AND CX<9 
6 AND CY>60 AND CY<126 THEN 1650 
1620 SCREEN1,1:GOTO 1280 
1630 FOR Z = 1 TO 5:SOUND255,1:N 
EXT Z:CLS:PRINT"THIS NEEDLEWORK 
SAYS:":PRINT:PRINT"BUY RAINBOW M 
AGAZINE!!!":FOR Z=1 TO1250:NEXT 
Z:GOTO 1620 

1640 FOR Z = 1 TO 5 : SOUND2 55,1: N 
EXT Z:CLS:PRINT"YOUR UNCLE KERMI 
T'S ROBOT":PRINT:PRINT"APPEARS T 
0 BE REACHING FOR":PRINT:PRINT"S 
OMETHING.":FOR Z=1 TO 1250:NEXT 
Z:GOTO 1620 

1650 FOR Z = 1 TO 5:SOUND255,1:N 
EXT Z:CLS:PRINT"YOU PASS THROUGH 
THE DOORWAY":PRINT:PRINT"STEPPI 
NG OVER THE DISABLED":PRINT 
1660 PRINT"ROBOT AND ESCAPE TO F 
REEDOM!!!":PRINT:PRINT"YOU HAVE 
WON!!!":FOR Z=1 TO 1750:NEXT Z 
1670 FOR Z = 1 TO 8:READ A$(Z):N 
EXT Z:DATA Z,A,C,H,A,R,Y,:CLS 
1680 FOR Z = 1 TO 8:PRINT A$(Z); 

:PLAY"V15;L255;03;D":NEXT Z 
1690 PRINT:PRINT"YOUR PRIZE FOR 
ESCAPING MY":PRINT:PRINT"ROBOT A 
ND ESTATE IS LUDLOW":PRINT:PRINT 
"MANOR AND MY ROBOT. THAT WAY":P 
RINT:PRINT"YOU CAN PLAY THIS GAM 
E AS OFTEN":PRINT:PRINT"AS YOU L 
IKE. GREAT JOB!!!" 

1700 FOR Z = 1 TO 2500:NEXT Z:GO 
TO 1710 

1710 PRINT:INPUT"PLAY AGAIN(Y/N) 
";PL$:IFPL$=CHR$(89) THEN RUN EL 
SE CLS:PRINT"BYE.":END 

/R\ 
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Hie Amulet 


Y 


Program by Don Sheerin 


our great aunt, Mathilda, recently passed away 
at the astonishing old age of 143 and you and 
the other family members are gathered for the 
reading of her will. Everyone is aware of the fact 
that her assets will be liquidated and the money, 
as well as her cadaver, donated to medical 
research. Nevertheless, the one item that 
everyone would love to own, her rare, golden 
amulet containing five precious gems (dia¬ 
mond, ruby, sapphire, emerald and pearl), will 
be left to someone in the room. 

Who will be awarded her most illustrious 
possesion, you wonder? You and she were 
pretty close. Could you possibly have a chance? 
The room becomes silent as the attorney begins 
the reading.... 

“For years I have been recognized for my 
phenomenal health and extended life. I have 
shattered the record as the longest-living 
human being and everyone has been mystified 
by my secret of longevity. Well, the time has 
come to share that secret and pass the good 
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fortune on to one of you. 

“The exquisite amulet, which you have all admired, is much more valuable 
than its monetary worth. You see, the radiant charm was left to me by my great 
grandmother when she died at the age of 115. For reasons which surpass 
scientific explanation, when all of the mystical stones are placed in the amulet’s 
golden setting, the bearer is protected from evil, danger and disease and is 
granted an additional 100 years of existence. 

“Since it is hardly possible for me to decide which of you is most deserving 
of the good luck charm, I have devised a scheme to let one of you earn it. 

“The individual pieces of the fabulous heirloom have been extremely well- 
hidden in different locations around the estate. ” The attorney continues reading. 
“To win the cherished prize, you must search the old home and surrounding 
grounds to find the amulet and each of its jewels. Of course, all of you may 
not receive the opportunity, since the order in which you may individually 
pursue the hunt will be determined by drawing numbers. If you do get a chance, 
however, be forewarned — the task will not be easy. 

“If, and when, your turn arrives, you must be prepared to make great 
sacrifices, for all of your time must be devoted to the expedition. If you leave 
the property for any reason, or if you fail to totally complete the mission, all 
rights to the inheritance will be forfeited and the family member next in line 
will receive the same opportunity. 

“During your adventure, be sure to carefully examine each clue, look at 
everything and avoid catastrophe. If you are lucky enough to locate all of the 
stones and place them back into the amulet, you will earn the treasure as your 
inheritance. 

“To the rest of my family, I leave my best wishes and hope you will never 
forget that things are not always as they seem. 

“Goodbye, Aunt Mathilda.” 

The lawyer folds the will and passes around a small wooden box containing 
sealed envelopes. As you immediately tear open your selection, you are 
flabbergasted to see the number T ’ on the paper contained inside. You graciously 
accept the key to the house and dash from the office laughing with joy. 
Disregarding speeding laws, you race to the old mansion on the hill. 

The estate looks monstrous, with its acres of grounds and many surrounding 
buildings. Weeds have overgrown the place, paint is peeling badly from the 
exterior walls, and with darkness setting in, a kind of eerie feeling comes over 
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you. But, once at the front door, pleasant thoughts of the amulet return. You 
insert the key into the decrepit lock and turn the doorknob. Voila! The door 
slowly creaks open . . . and the Adventure begins. 

Before loading the program, type PCLERR1 to allow for memory requirements, 
else an OM Error will occur. 

You begin the game with a sack in your possession and are only allowed to 
carry three items in your hand and seven in your sack, so travel light. To travel 
through the estate, use the following single-key directional commands: N 
(North), 5 (South), E (East), W (West), U (Up) and D (Down). The commands 
LOOK (examines the room for objects), INVENTORY (lists the items you are 
carrying) and VERB (displays a verb list) may also be abbreviated by typing only 
the first letter of the command. The standard two-word commands (a verb 
followed by a noun) may also be entered in abbreviated form by first typing 
the verb and only the first three letters of the noun. For example: Type, LOOK 
SHE instead of LOOK SHELF. And, to speed game play, the commands GET RLL, 
DROP RLL or EMPTY 5RCK may be used. 

The Amulet consists of 21 different locations and can be solved in as few 
as 40 moves. Points are displayed at any time by typing SCORE and a maximum 
of 3,000 points are possible. 

A game save feature is also incorporated into the program. To save a game, 
type the command SRVE when you reach a desired starting point in the 
Adventure and simply follow the prompts. To load a saved game, type the 
command LORD after running the program, follow the prompts and you will 
start the game in the room that you previously left off in the Adventure. 

Be sure to ask for HELP if you need it! 


Don Sheerin, a building inspector with years of construction background, 
claims that learning to use the Color Computer was an adventure in itself 
Writing an Adventure seemed to be the easiest way for him to learn the 
computer, and the most fun . Questions or comments may be addressed to 
Don at 2535 W ' Pershing Avenue, Phoenix, AZ 85027. Please enclose an 
SASE when requesting a reply. 
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AMULET 32K ECB 


l 1 

Caution — Packed Lines! 

Some of the lines in this program are "packed” and may be too long to enter in a normal fashion. If the CoCo stops accepting characters, 
press ENTER, go into the EDIT mode (type EDIT followed by the line number), press l X’ (the EDIT command for extending the line), 
and then type in the few remaining characters. (We do not recommend using this technique in your own programs as serious problems 
could result.) 


8 CLS:GOTO30100 

9 GOSUB19055:X=2 4:Y=60:CLS:PRINT 
@233,"BUILDING THE SET" 

10 DIML$(X+l),LO$(Y+l),0$(Y+l ),C 
$(38),T(6,X),C(38),0(Y+1) 

100 DATA ENTRY HALL,REAR YARD,TO 
OL SHED,SWIM POOL,POOL HOUSE,PAN 
TRY,LIVING ROOM 

102 DATA DEN,HIDDEN ROOM,KITCHEN 
,DINING ROOM,GUEST BEDROOM,MASTE 
R BEDROOM,CLOSET,BATH 
104 DATA BASEMENT,TOOL ROOM,WINE 
CELLAR ,WINE CELLAR ,WINE CELLA 
R ,WINE CELLAR 

106 DATA HIDDEN ALCOVE,EAST GARD 
EN,WEST GARDEN 

200 DATA A CAPSULE,CAP,-30,A CAN 
,CAN,-30,A GARBAGE CAN,GAR,2,SPI 
LT GARBAGE,*,-30,AN OPEN DOOR,*, 
-30,A GLASS CUTTER,GLA,-30 
202 DATA A FIRE AXE,AXE,-30,A SM 
ALL SHELF,*,3,A SHELF,*,5,A 3 LE 
GGED TABLE,*,1,A GLASS DISH,*,-3 
0,A KEY,KEY,-30 

204 DATA A CRYSTAL CHANDALIER,*, 
1,A LARGE WALL MIRROR,*,8,A MING 
VASE,MIN,8,A WALL PICTURE,*,21, 
SHELVES,*,6,A FLASHLIGHT,FLA,-30 
206 DATA A FIREPLACE,*,7,SQUARE 
CASE,CAS,-30,MANTLE,*,7,A WRENCH 
,WRE,-30,BRICK,*,-30,BRIGHT MARB 
LES,*,-30 

208 DATA A TIN BOX,TIN,-30,A STO 
VE, *,10,A REFRIGERATOR,*, 10, SILV 
ERWARE,*,10,TABLE & CHAIRS,*,11, 
A SMASHED DOOR,*,-30 
210 DATA A LOOSE PLANK,*,-30,A P 
LASTIC CARD,CAR,-30,A RUG,*,11,B 
ATTERIES,BAT,-30,A WALL PERSIAN 
RUG,*,9,A OAK SHELF,*,22 
212 DATA A BOX,BOX,-30,A SALES R 
ECEIPT,REC,-30,BED POST WITH HOL 
E IN TOP,*,-30,A VANITY,*,12,A P 
ICTURE,*,-30,SHELF,*,14 
214 DATA A BED & HEADBOARD WITH 
POSTS,*,13,KNOB,*,-30,A DRESSER, 
*,13,LOTS OF FLOWERS,*,23,STRAW, 
*,21,PHOTOGRAPH,PHO,-30 
216 DATA GLASS SHELF,*,17,A NOTE 


,NOT,-30,* PEARL*,PEA,-30,* DIAMON 
D*,DIA,-30,*EMERALD*,EME,-30,*RU 
BY*,RUB,-30 

218 DATA *SAPHIRE*,SAP,-30,A GOL 
D AMULET,AMU,-30,SACK,SAC,1000,S 
HOVEL,SHO,-30,IRIS PLANTS,*,-30, 
VELVET POUCH,POU,-30 
300 DATA ,8,7,2,,,4,-1,1,,,,2,,, 
if#24,2,5,,,,,,,4,,,,,10,,,,,,11 

f 1 / I/It r “2 ,, ,, ,, _ 8,8,,,,11, ,6, , , 

10 / / # *7, — 4,16, ,14,13, , ,11, ,15, , 12 
illicit it i # 13 ,,,,,,,,, ,11,-5,16, 

, ,18,,,18,18,18,19,,,18,18,18,20 
,,,18,18,18,21,,,18,17,19,18,,,, 

,,9,,,,,,24,,,,4,23 , , , 

400 DATA "TAKE",1,"GET",1,"DR0P" 

,2,"N",3,"S",3,"E",3,"W",3,"U",3 

,"D",3,"LOOK",4,"L",4 

402 DATA "MOVE",5,"PUSH",5,"PULL 

",5,"UNLOCK",6,"OPEN",7,"I",8,"D 

IG" ,9 ,"EMPTY",10,"EMP",10 

404 DATA "PUT",11,"INSERT",12,"C 

UT",13,"SMASH",14,"CHOP",14,"BRE 

AK" ,14,"LIGHT",15,"UNLIGHT",16," 

REMOVE",17,"LIFT",18 

406 DATA "V",19,"HELP",20,"TWIST 

",21,"TURN",21,"DIAL",21,"SCORE" 

,22,"LOAD",23,"SAVE",24 

600 F0RC=1T0X:READL$(C):NEXTC 

700 F0RC=1T0Y:READLO$(C),0$(C),0 

(C):NEXTC 

800 F0RC=1T0X:READT(1,C),T(2,C), 
T(3,C),T(4,C),T(5,C),T(6,C):NEXT 
C 

850 T$(1)="N":T$(2)="S":T$(3)="E 
" :T$ (4)="W":T$(5)="U":T$(6)="D" 

899 N=38:'VERBS 

900 F0RC=1T0N:READC$(C),C(C):NEX 
TC 

947 ZC=2:'AMOUNT IN HAND 

948 ZS=6:'AMOUNT IN SACK 

949 RC=1: 1 ADD 1 FOR SACK IN HAND 

950 L=1 

999 CLS 

1000 GOSUB20000:PRINT:PRINT"you 
are at the ";L$(L) 

1010 PRINT"you see:",, 

1020 F0RC=1T0Y:IFO(C)=LTHENPRINT 
L0$(C);" " 



1,03,0 NEXTC 

1040 PRlNT"obvious exits lead:"; 
1050 FORC=1TO6:IFT(C,L)>0THENPRI 
NTT$(C);" " ; 

1)352 IFT (C, L) =-lTHENPRINT" " , "T 
HE PASSAGE TO THE SOUTH IS B 

LOCKED BY A SHED WITH A LOCKED D 
OOR" 

1,053 IFT (C, L) =-2THENPRINT" " , "A 
MIRROR BLOCKS THE WAY EAST" 

1054 IFT(C,L)=-9THENPRINT"","A V 
ERY LARGE 'LOOKING GLASS' ON THE 

EAST WALL" 

1055 IFT(C,L)=-4THENPRINT"","A S 

OLID OAK DOOR BLOCKS THE PAS 

SAGE UP-THERE IS A SIGN ON THE 

DOOR" 

1)356 IFT (C, L) =-5THENPRINT"" , "A S 
TEEL DOOR BLOCKS A PASSAGE DOW 
N" 

1)36)3 NEXTC 
1065 PRINT 

1070 IFTR=5THENGOTO30070 
1100 CO=CO+1:GOSUB20000:PRINT:PR 
INT"WHAT WOULD YOU LIKE TO DO NO 
W...";:SOUND150,1:GOTO1110 
1105 U$=CHR$(128):CLS(0):PRINT®1 
03,"it"+U$+"is"+U$+"pitch"+U$+"d 
ark";:PRINT0225,"what"+U$+"would 
"+U$+"you"+U$+"like"+U$+"to"+U$+ 
"do"+U$+"now";:SOUND150,1:GOTOll 
10 

1110 LINEINPUTA$ 

1200 FORC=lTOLEN(A$):IFMID$(A$,C 
, 1)=" "THENA1$=LEFT$(A$,C-l):B$= 
MID$(A$,C+l,LEN(A$)-C):GOTO1230E 
LSENEXTC 
1210 A1$«A$ 

1230 FORC=lTON 

1240 IFC$(C)=A1$THENA=C(C):G0T01 
400 

1250 NEXTC 

1260 PRINT"I DO NOT UNDERSTAND T 
HE VERB","CHECK THE 'VERBS "':GOT 
01100 

1400 ONAGOTO2000,3000,4000,5000, 
6000,7000,8000,9000,10000,10500, 
11000,11500,12000,12500,13000,13 
500,14000,14500,15000,15500,1600 
0,17000,17500,18000 

2000 CLS:BB$=LEFT$(B$,3):BC$=RIG 
HT$(B$,3) 

2001 IF RC>ZC THEN PRINT"TOO MUC 
H",,"YOU NOW HAVE"RC"ITEMS IN HA 
ND","AND CAN CARRY ONLY 3":G0T01 
100 


2002 IFBB$="PLA"THENBB$="CAR" 

2003 IFBB$="VAS"THENBB$="MIN" 

2004 IFBB$="SQU"THENBB$="CAS" 
2006 IFBC$="OLD"THENBB$="AMU" 

2008 IFBB$="ALL"THENGOTO2508 

2009 IFBB$="CUT"THENBB$="GLA" 

2010 IFBB$="B0X"ANDL=11THENBB$=" 
TIN" 

2050 F0RC=1T0Y 

2060 IFBB$=0$(C)ANDO(C)=LANDO$(C 
)<>"*"THENO(C)=1000:PRINTLO$(C)" 
HAS BEEN TAKEN":RC=RC+1:GOSUB19 
098:GOTO1000 

2070 IFBB$=0$(C)ANDO(C)=2000ANDO 
(57)=1000THENGOTO2530 
2072 IFBB$=0$(C)ANDO(C)=1000ANDO 
(57) O1000THENPRINT" YOU DO NOT H 
AVE THE SACK":GOTO1000 
2080 NEXTC 

2500 PRINT"YOU CAN'T GET THE '"B 
$»'":GOTO1100 
2508 F0RC=1T0Y 

2512 IFO (C) =LANDO $(C)O"*"THEN0( 
C)=1000:RC=RC+1 

2514 IFROZCTHENCLS: PRINT"YOU AR 

E AT YOUR LIMIT NOW-"RC"IN 

HAND",,RS"IN SACK":GOTO1000 
2520 NEXTC:GOTO1100 
2530 SOUND150,1:INPUT"FROM WHERE 
";1$:I$=LEFT$(1$,3) 

2535 IFI$="SAC"THENPRINTLO$(C)" 
IS OUT OF THE SACK":O(C)=1000:RS 
=RS-1:RC=RC+1:PRINTRC"IN HAND",, 
RS"IN SACK":GOTO1000 
2900 PRINT"YOU CAN NOT GET THAT" 
:GOTO1100 

3000 CLS:BB$=LEFT$(B$,3) 

3002 IFBB$="SQU"THENBB$="CAS" 

3003 IFBB$="PLA"THENBB$="CAR" 

3004 IFBB$="VAS"THENBB$=»MIN" 

3006 IFBB$="B0X"ANDL=11THENBB$=" 
TIN" 

3007 IFBB$="CUT"THENBB$="GLA» 
3010 IFBB$="ALL"THENGOTO3510 
3040 F0RC=1T0Y 

3050 IFBB$=0$(C)ANDO(C)=1000THEN 
0(C)=L:RC=RC-1:PRINTLO$(C)" HAS 
BEEN DROPPED",RC"IN HAND NOW":GO 
TO1100 
3090 NEXTC 

3500 CLS:PRINT"YOU CAN'T DROP "B 
$" NOW":GOTO1100 
3510 F0RC=1T0Y 

3515 IFO(C)=1000ANDO$(C)<>"*"THE 
N0(C)=L:RC=RC-1 

3540 NEXTC:PRINT"ALL IS DROPPED" 
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,,RC"IN HAND”,,RS"IN SACK":G0T01 
000 

4000 CLS:BB$=LEFT$(B$,3) 

4002 IFA$="E"ANDL=9ANDUC=1ANDU6= 
0THENCLS:GOSUB1902 5:GOSUB20070:G 
OSUB19025:PRINT@192 ,»»:GOSUB2009 
0:GOSUB19030:L=22:U6=1:CLS:T(3,9 
)=22:GOTO1000 

4003 IFL=14ORL=18ORL=19ORL=20ORL 
=21THENIF0(18)>0THENIFO(34)>0ORO 
(48)>0ANDDA=0THENCLS(0):PRINT@23 
1, "TURN ON YOUR FLASH" ; :GOSUB190 
25:GOTO20060 

4004 IFL=14ORL=18ORL=19ORL=20ORL 
=21THENIFLT=0THENCLS(0) :PRINT623 
7,"OH OH";:SOUND60,10:SOUND20,2 
0:CLS(0):PRINTS131,"YOU FELL AND 

HIT YOUR HEAD";:GOSUB19025:PRIN 
T@261,"YOU AWAKEN AT THE START"; 
:GOSUB19025:CLS(0):PRINT04 62,"SO 
RRY";:GOSUB19025:RUN 
4008 F0RC=1T06:IFA$=T$(C)THENDR= 
C:GOTO4020 
4)31)3 NEXTC:GOTO4050 
4020 IFT(DR,L)>0THENL=T(DR,L):GO 
TO4030 

4)325 IFT(DR,L)<=0THENCLS(3):PRIN 
T@228,"YOU CAN'T GO THAT WAY.";: 
GOSUB1902 5:CLS:GOTO1000 

4030 IFDA=1THENLT=LT-1 

4031 MM=MM+1 

4035 IFL=14ORL=18ORL=19ORL=20ORL 
=21THENIFDA=0THEN4060ELSE4040 
4040 GOTO1000 

4050 PRINT"TRY A DIRECTION":GOTO 
1100 

4060 U$=CHR$(128):IFDA=0THENCLS( 
0):PRINT0171,"it"+U$+"is"+U$+"da 
rk"+U$;:GOSUB19030:PRINT@231,"do 
"+u$+"not"+u$+"try"+u$+"to"+u$+" 
move"+U$;:PRINT0295,"turn"+U$+"o 
n"+U$+"your"+U$+"flash"+U$;:GOSU 
B19030:CLS(0) 

4070 GOTO1105 

5000 CLS 

5001 BB$=LEFT$(B$,3) 

5002 IFA$=A1$THEN1000 

5040 IFBB$="TAB"ANDL=1ANDU2=0AND 
U1=0THENGOSUB19060:0(11)=1:Ul=l: 
GOTO1000 

5045 IFBB$="SIG"ORBB$="DOO"THENI 
FL=11ANDUF=0THENCLS:PRINT"TO ENT 
ER WITHOUT A FLASHLIGHT WOULD 
BE FOOLISH":GOSUB19025:GOTO1000 
5050 IFBB$="DIS"ANDU1=1ANDU2=0AN 
DL=1THENGOSUB190 60:0(12)=1:U2=l: 


GOTO1000 

5060 IFBB$="SHE"ANDL=2THENPRINT" 

A WEATHERED OLD SHED-STRONG":G 

OTO1100 

5070 IFBB$="SHE"ANDL=3ANDU4=0THE 
NPRINT"THERE ARE MANY ITEMS ON I 
T":U4=1:GOTO1000 

5080 IFBB$="SHE"ANDL=3ANDU4=1THE 
NGOSUB19060:0(6)=3:U4=2:GOTO1000 
5090 IFBB$="SHE"ANDL=3ANDU4=2THE 
NGOSUB19060:U4=3:0(7)-3:GOTO1000 
5100 IFBB$="SHE"ANDL=3ANDU4=3THE 
NGOSUB19060:U4=4:0(58)=L:GOTO100 

V 

5110 IFBB$="CAP"ANDO(1)=1000ANDL 
=24ANDU5=1THENCLS:PRINT6224,"MAD 
E OF LEAD WITH A LID":GOSUB19025 
:GOTO1000 



5112 IFBB$="NOT"ANDL=24ANDO(50)= 
1000ANDU5=3THENPRINT@44,"IT READ 
S":PRINTSTRING$(32,"=")"I LEFT Y 
OU A CLUE SO YOU CAN DIGUNDER TH 
E CORRECT FLOWER IN THE CORRECT 
GARDEN. LOOK FOR IT!!!!":PRINTST 
RING$(32,"="):GOSUB19030:GOTO100 

fl 

5114 IFBB$="LID"ANDL=24ANDU5=1AN 
DO(1)=1000THENCLS:PRINT023 3,"A S 
CREW LID":GOTO1100 

5118 IFBB$="LOO"ORBB$="GLA"ORBB$ 
="MIR"THENIFL=9ANDU6=0THENPRINT" 
A FULL LENGTH LOOKING GLASS WITH 
REMARKABLE DEPTH AND CLARITY":GO 
TO1100 

5119 IFBB$="RUG"ANDL=9ANDUC=0ORB 
B$="PER"ANDL=9ANDUC=0THENPRINT"V 
ERY OLD AND HANGING ONLY BY A R 
USTY HOOK":GOTO1000 
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5120 IFBB$="L00"ANDL=9ANDU6=10RB 
B$="MIR"ANDL=9ANDU6=1THENPRINT"L 
OOKS LIKE A CHANDLIER COVERED W 
ITH DIAMONDS":U6=2:GOTO1100 
5122 IFBB$="FLO"ANDL=23ANDU8=0TH 
ENCLS:PRINT"40 ROWS OF DIFFERENT 
VARIETIES":GOSUB19020:GOTO1000 
5126 IFBB$="CAN"ANDL=23ANDU8=2AN 
DO(2)=1000THENCLS:PRINT9224,"IT 
HAS A LID":GOSUB19025:GOTO1100 
5128 IFBB$="LID"ANDL=23ANDU8=2AN 
DO(2)=1000THENCLS:PRINT6224,"LOO 
KS LIKE A SCREW ON LID":GOSUB190 
25:GOTO1000 

5130 IFBB$="PIC"ANDL=12ANDUK=1TH 
ENCLS:PRINTSTRING$(32,"*"):PRINT 
"A DRAWING OF A IRIS PLANT 

SPROUTING FROM A BEAUTIFUL PEAR 
L* * * FROM A EAST GARDEN********** 
*":PRINTSTRING$(32,"*"):GOSUB190 
35:U8=1:O(46)=-30:O(59)=23:GOTOl 
000 

5131 IFBB$="CAN"ANDO(2)=1000ANDL 
=23ANDU8=4THENCLS:GOSUB19060:0(6 
0)=23:U8=5:GOSUB19020:GOTO1000 

5132 IFBB$="POU"ANDL=23ANDU8=5AN 
DO(60)=1000ORBB$="VEL"ANDL=2 3AND 
U8=5ANDO(60)=1000THENCLS:PRINT02 
30,"it has draw strings":GOSUB19 
030:CLS:GOTO1000 

5136 IFBB$="POU"ANDO(60)=1000AND 
U8=6THENGOSUB19060:U8=7:0(51)=23 
:0(60)=-30:RC=RC-1:CLS:GOTO1000 
5140 IFBB$="DRE"ANDL=12ANDU8=0TH 
ENGOSUB190 60:0(41)=12:GOTO1000 
5142 IFBB$="MIN"ANDO(15)=1000AND 
L=80RBB$="VAS"ANDL=8AND0(15)=100 
0THENPRINT"ON THE BOTTOM IT READ 
S 'MADE IN MEXICO'",,"IT'S SEALE 
D AND IT RATTLES":GOTO1000 
5144 IFBB$="MAR"ANDUA=1ANDL=8THE 
NCLS:PRINT6256,"LOTS OF COLORFUL 
MARBLES SCATTERED ALL OV 

ER" :GOSUB19030:CLS:PRINT0270,"WA 
IT":GOSUB19025:0(53)=8:UA=2:GOSU 
B19060:GOTO1000 

5146 IFBB$="MIR"ANDL=8ANDVB=0THE 
NPRINT"A FULL LENGTH MIRROR 'DOO 
R SIZE'":GOTO1000 
5148 IFBB$="SHE"ANDL=22ANDUD=0TH 
ENGOSUB19060:UD=1:0(37)=22:GOTOl 
000 

5150 IFBB$="BOX"ANDO(37)=1000AND 
L=22ANDUD=2THENGOSUB19060:0(38)= 
22:UD=3:GOTO1000 

5152 IFBB$="REC"ANDO(38)=1000AND 


UD=>3 THENCLS:PRINTSTRING$(32,"*" 
):PRINT"A RECEIPT FOR A 'BRICK S 
HAPED' FIREPROOF CASE":PRINTSTR 
ING$(32,"*"):T(4,9)=8:UD=4:GOTOl 
000 

5153 IFBB$="FIR"ANDUD=4ANDL=7THE 
NGOSUB19060:0(2 3)=7:UD=5:GOTO100 
0 

5154 IFBB$="BRI"ANDL=7ANDUD=5THE 
NPRINT"LOOKS A BIT LOOSE":GOTO10 
00 

5156 IFBB$="CAS"ANDL=7ANDUE=3AND 
0(20)=1000THENCLS:G0SUB19060:0(5 
4)=7:UE=4:GOTO1000 
5158 IFBB$="DOO"ANDL=1SANDUG=0TH 
ENCLS:PRINT"SOLID STEEL WITH A C 
OMBINATION LOCK ON IT":UG=1:G0T 
01000 

5160 IFBB$="L0C"ANDL=16ANDUG=1TH 
ENPRINT"JUST A BIG DIAL WITH NUM 
BERS":GOTO1000 

5162 IFBB$="CAR"ANDO(32)=1000THE 
NPRINT"FAINT NUMBERS "CM$:GOTO10 
00 

5164 IFBB$="SHE"ANDL=5ANDUH=0THE 
NCLS:PRINTSTRINg$(32,"=")"A NOTE 

FROM THE GARDNER SAYS-":PRINT 

STRINGS(32,"=")"I PUT YOUR FLASH 
LIGHT AND YOUR BATTERIES IN THE 
PANTRY":PRINTSTRING$(3 2,"="):GO 
SUB19025:GOTO1000 
5166 IFBB$="SHE"ANDL=6ANDUI=0THE 
NGOSUB19060:0(34)=6:0(18)=6:UI=1 
:UH=2:GOTO1000 

5168 IFBB$="RUG"ANDL=11ANDUJ=0TH 
ENPRINT"JUST A LUMPY OLD RUG":GO 
TO1000 

5170 IFBB$="LUM"ANDUJ=0ANDL=11TH 
ENPRINT"JUST A LUMP":GOTO1000 
5172 IFBB$="PLA"ANDL=11ANDUJ=1TH 
ENPRINT"DEFINATELY LOOSE LOOKING 
":GOTO1000 

517 4 IFBB$="VAN' 'AN DL=12 ANDUK=0TH 
ENGOSUB19060:O(41)=12:UK=1:GOTOl 
000 

5176 IFBB$="HEA"ANDL=13ANDUL=0OR 
BB$="BED"ANDL=13ANDUL=0THENCLS:P 
RINT0224,"THE HEADBOARD HAS POST 


S AND KNOBS":GOSUB19030:PRIN 

T"WAIT." :GOSUB19030:PRI 


NT"ONE KNOB LOOKS WORN":GOSUB190 
30:CLS:UL=1:O(44)=13:GOTO1000 
5178 IFBB$="KN0"ANDL=13ANDUL=1TH 
ENPRINT"LOOKS LARGE AND ROUND AN 
D MASSIVE":GOSUB19030:PRIN 

T"LOOKS WORN":GOSUB19025:PRINT"6 
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INCH ROUND":GOSUB19030:CLS:GOTO 
1000 

5180 IFBB$="SHE"ANDL=14ANDUM=0TH 
ENGOSUB19060:UM=1:0(2 2)=14:GOTOl 

000 

5182 IFBB$="POS"ANDL=13ANDUL=2TH 
ENCLS(0):PRINT®196,"I SEE A HOLE 
IN THE TOP";:GOSUB19030:PRINT62 
92,"IT APPEARS TO BE HOLLOW";:GO 
SUB19030:UL=3:CLS:0(39)=13:GOTOl 
000 

5184 IFBB$="HOL"ANDL=13ANDUL=3TH 
ENGOSUB19060:UL= 4:0(55)=13:GOTOl 
000 

5186 IFBB$="SHE"ANDL=17ANDUN=0TH 
ENGOSUB19060:0(48)=17:UN=1:GOTOl 
000 

5188 IFBB$="STR"ANDL=21ANDUO=0TH 
ENCLS:PRINTS128,"CLEAN STRAW CAS 

UALLY PILED UP INTHE CORNER. 

":GOSUB1902 5:UO=l:GOTO1000 
5194 IFBB$="AMU"ANDUO-2ANDO(56) = 
1000THENCLS(5):PRINTS66,"ROUND., 
.GOLDEN...VERY HEAVY";:GOSUB1903 
0:PRINTS130,"THERE ARE FIVE EMPT 
Y SOCKETS";:GOSUB19030:PRINTS258 

, "PRINTING ON IT SAYS.";:GO 

SUB19025:PRINTS358,"KEEP ME INTA 
CT";:GOSUB19030:CLS:GOTO1000 
5196 IFBB$="PIC"ANDL=21THENCLS:P 
RINTSTRING$(32,"*");"A DRAWING 0 

F A CRYSTAL. CHANDALIER 

WITH A DIAMOND AS ONEOF THE PEND 
ANTS HANGING FROM IT ";STRING$(3 
2,"*"):UP=l:GOTOl100 
5198 IFBB$="CHA"ANDL=1ANDUP=1THE 
NCLS:GOSUB19060:0(52)=1:GOTO1000 
5200 IFBB$="SAC"THENPRINT"LOOKS 
STURDY...CAN HOLD ABOUT 7 ITEMS" 
:GOTO1100 

5210 IFBB$="WRE"ANDUL<2THENCLS (0 

):PRINTS227,"6 INCH JAWS-MADE 

OF WOOD";:GOSUB19030:CLS:GOTO100 
0 

5220 IFBB$="PHO"ORBB$="PIC"THENI 
FL=17ANDUN=1THENCLS:PRINTS128,"A 
VERY OLD SNAP OF A GOLDEN A 

MULET AND 5 STONES-ON THE B 

ACK IT TELLS YOU TO insert THE S 
TONES INTO THE AMULET AND THEN T 

HEY CAN NEVER BE REMOVED." 

:GOSUB19025:GOTO1000 
5990 PRINT"THERE IS NOTHING TO B 
E SEEN BY LOOKING AT ■"B$":PR 
INT:PRINT"SOME OBJECTS MUST BE 1 
IN HAND 1 ":GOTO1000 


6000 CLS:BB$=LEFT$(B$,3) 

6010 IFBB$="GAR"ANDL=2ANDU7=0ORB 
B$="CAN"ANDL=2ANDU7=0THENCLS(0): 
PRINTS237,"CRASH";:GOSUB1902 5:CL 
S:0(3)=-30:0(4)=2:U7=1:GOTO1000 
6070 IFBB$="STR"ORBB$="DRA"THENI 
FO (60)=1000ANDU8=5THENCLS:PRINTS 
266,"it opened":GOSUB19030:U8=6: 
0(59)=-30:CLS:GOTO1000 
6080 IFBB$="RUG"ANDL=9ANDUC=0THE 
NCLS:PRINT"THE RUG FALLS AWAY TO 

REVEAL A SUPRISE." :T(4 

,9)=-22:T(3,9)=-9:L0$(35)="A RUG 
ON FLOOR":UC=1:GOTO1000 
6090 IFBB$="BRI"ANDUE=0ANDUD=5AN 
DL=7THENCLS:PRINTS 2 3 6,"CLICK":GO 
SUB19030:UE=1:PRINTS298,"IT'S 
LOOSE":GOTO1100 

6190 IFBB$="RUG"ANDL=11ANDUJ=0TH 
ENUJ=1:CLS(0):PRINTS268,"IT MOVE 
D" ; :GOSUB19030:GOSUB19060:O(31) = 
11:GOTO1000 

6192 CLS(0):IFBB$="STR"ANDL=21AN 
DUO=1THENPRINTS230,"IT SLOWLY MO 
VES";:GOSUB19025:GOSUB19025:CLS( 
0):PRINTS225,"THERE MAY BE SOMET 
HING THERE";:GOSUB19030:GOSUB190 
60:0(56)=21:U0=2:GOTO1000 
6990 CLS:PRINT"YOU CAN'T MOVE 1 " 
B$"'":GOTO1100 
7000 CLS:BB$=LEFT$(B$,3) 

7010 IFBB$="L0C"ANDU2=1ANDL=2AND 
U3=0ORBB$="DOO"ANDU2=1ANDL=2ANDU 
3=0ORBB$="SHE"ANDU2=1ANDL=2ANDU3 
=0THEN7 510 

7020 IFBB$="L0C"ANDL=16ANDUG=1TH 
ENCLS:PRINTS224,"HOW DO YOU UNLO 
CK A COMBINATION LOCK???????":GO 
TO1000 

7500 GOTO7990 

7510 INPUT"USING WHAT";1$:IS$=LE 
FT$(1$,3):IFIS$="KEY"ANDO(12)=10 
00ANDL=2THENCLS:PRINTS228,"THE K 
EY FITS IN THE LOCK":U2=2:GOTO11 
00 

7990 CLS:PRINT"THE '"8$"' WILL N 
OT UNLOCK":GOTO1100 
8000 CLS 

8010 BB$=LEFT$(B$,3) 

8020 IFBB$="DOO"ANDL=2ANDU2=3AND 
U3=1THENPRINTS231,"CCRREEEEAAAKK 
KK" :GOSUB19030:T(2,2)=3:U3=2:0(5 
) =2:0(12)=-30:RC=RC-1:CLS:GOTO10 
00 

8040 IFBB$="BOX"ANDO(37)=1000AND 
L=22THENPRINT"IT OPENS":UD=2:GOT 


28 










01000 

8050 IFBB$="CAS"AND0(20)=1000AND 
UE=2THENUE=3:CLS:PRINT"IT OPENS" 
:UE=3:GOTO1000 

8060 IFBB$="DOO"ANDUG=2ANDL=16TH 
ENCLS(0) :PRINT0267,"CCLLLIICCK" ; 
:GOSUB1903 0:CLS(0):PRINT92 67,"IT 
OPENS";:GOSUB1902 5:CLS:T(6,16) = 
17:UG=3:GOTO1000 

8080 IFBB$="B0X"ANDUJ=2AND0(25) = 

1000ANDL=UORBB$="TIN"ANDUJ=2AND 

0(25)=1000ANDL=11THENGOSUB19060: 

0(32)=11:UJ=3:GOTO1000 

8990 PRINT"YOU CAN'T OPEN '"B$" 1 

":GOTO1100 

9000 CLS 

9005 GOSUB20000 

9010 PRINT"YOU ARE CARRYING THIS 

. ii 

9100 PRINT:PRINT"in hand:":FORC= 
1TOY 

9102 IFO(C)=1000THENPRINTLO$(C) 
9105 NEXTC 

9108 IFO (57) O1000THEN9200 
9115 PRINT"in sack:" 

9150 F0RC=1T0Y 

9160 IFO(C)=2000THENPRINTLO$(C) 

9162 NEXTC 

9163 PRINTSTRING$(32,CHR$(34))RC 
"IN HAND",,RS"IN SACK" 

9200 IFO (56) O1000THEN924 5 

9201 GOSUB19000 

9202 PRINTSTRING$(32,CHR$(42)) "T 
HESE *GEMS* ARE IN THE AMULET:" 
9210 F0RC-1T0Y 

9220 IFO(C)=3000THENPRINTLO$(C) 
9230 NEXTC 

9240 PRINTSTRING$(32,CHR$(42)) 
9245 GOSUB19000 
9990 GOTO1000 
10000 CLS:A$=A1$ 

10010 IFO(58)“1000THEN10050ELSE1 
0040 

10040 CLS:PRINT"YOU NEED A SHOVE 
L" :GOTO1100 

10050 CLS(0):PRINT0234,"DIG WHER 
E" ; :INPUTI$:IS$=LEFT$(1$, 3) 

10060 IFIS$="GAR"ANDL=24ANDU5=0O 
RIS $="DIR"ANDL=2 4ANDU5=0THEN1026 

10061 IFIS$="GAR"ANDL=24ANDU5>0O 
RIS $="GAR"ANDL=2 4 AN DU5 >0THEN1026 
5 

10082 IFIS$="IRI"ANDL=23ANDU8=1T 
HEN10282 

10250 CLS:PRINT"YOU CAN NOT DIG 


THERE":GOTO1100 

10260 CLS(0) :PRINT02 32,"i see so 
mething";:GOSUB19030:O(1)=24:U5= 
1:CLS:GOTO1000 

10265 CLS:PRINT"THERE IS NO MORE 
TO BE FOUND HERE BY DIGGING" 
:GOTO1100 

10282 U8=2:0(2)=23:GOSUB19025:GO 

SUB19060:GOTO1000 

10490 CLS:PRINT"YOU CAN'T DIG '" 

B$"' NOW":GOTO1100 

10500 CLS 

10502 BB$=LEFT$(B$,3) 

10504 IFBB$="SAC"ANDO(57)=1000TH 
EN10540 

10520 IFI$="SAC"ANDO(57)=1000THE 
N10550 

10530 PRINT"YOU CAN'T EMPTY THAT 
":GOTO1000 

10540 PRINT9224,"ARE YOU SURE YO 
U WANT TO DUMP THE CONTENTS OF 
THE SACK ON THE GROUND????" 
10542 I$=INKEY$:I$=LEFT$(1$,1) 
10544 IFI$=""THEN10542ELSE IF 1$ 
="Y"THEN10550ELSEIFI$="N"THEN106 
00ELSE10600 
10550 F0RC=1T0Y 

10552 IFO(C)=2000ANDO$(C)<>"*»TH 
ENO(C)=L:RS=RS-1 

10554 NEXTC:CLS:PRINT"THE SACK I 

S EMPTY":GOSUB19025:CLS:GOTO9000 

10590 PRINT"YOU CAN'T EMPTY THAT 

":GOTO1000 

10600 CLS:GOTO1000 

11000 CLS:BB$=LEFT$(B$,3) 

11010 IFBB$="SAC"THENPRINT"YOU C 

AN ' T SACK A SACK.":G0T01 

100 

11100 F0RC=1T0Y 

11110 IFBB$=0$(C)ANDO(C)=1000THE 
NGOTO11310 

11111 IFRS>ZSTHENPRINT"TOO MANY" 
:PRINTRS"ITEMS IN THE SACK":GOTO 
1000 

11115 NEXTC:PRINT"YOU CAN'T 'PUT 
' "BB$:GOTO1000 

11310 SOUND150,1:INPUT"WHERE";I$ 
:I$=LEFT$(1$,3) 

11312 IFI$="SAC"ANDO(57)=1000THE 
NPRINTLO$(C)" IS IN THE SACK":0( 
C)=2000:RS=RS+1:RC=RC-1 
11314 IFI$="SAC"ANDO (57) O1000TH 
ENPRINT"YOU DON'T HAVE A SACK":G 
OTO1000 

11316 IFI$="FLA"ANDDB=0ANDO(18)= 
1000ANDO$(C)="BAT"THENO(34)=-30: 
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LT=LT+40:CLS(0):PRINT6225,"THE B 
ATTERIES ARE LOADED";:GOSUB19020 
:RC=RC-1:DB=1:GOTO1100 
11415 PRINTRS"IN SACK",,RC"IN HA 
ND":GOTO1000 

11490 CLS:PRINT"YOU CAN'T 'PUT' 
"BB$:GOSUB19025:GOTO1100 
11500 CLS:BB$=LEFT$(B$,3) 

11510 IFBB$="PEA"ORBB$="DIA"ORBB 
$= 1 'EME"ORBB$="RUB"ORBB$="SAP"THE 
NGOTO11520ELSEPRINT"YOU CAN'T IN 

SERT A",.BB$"' IN THE AMULET": 

GOTO1100 
11520 FORC=lTOY 

11530 IFBB$=0$(C)ANDO(C)=1000THE 
N11698 

11535 IFBB$=0$ (C) ANDO (C) O1000TH 
EN11545 

11540 NEXTC:GOTO1000 

11545 CLS:PRINT"IT'S NOT IN HAND 

":GOTO1100 

11698 IFO(56)<>1000THENPRINT"YOU 
DO NOT HAVE THE AMULET":GOTO110 

0 

11700 SOUND150,1:INPUT"INTO WHAT 
";I$:I$=LEFT$(1$,3) 

11710 IFI$="AMU"THENO(C)=3000:RC 
=RC-1:TR=TR+1:CLS(0):GOSUB19025: 
PRINT"THE "LO$(C)"IS IN THE AMUL 
ET","THERE ARE"TR"GEMS IN THE AM 
ULET":GOSUB19030:CLS:GOTO17000 
11990 CLS:PRINT"YOU CAN'T INSERT 
' "B$"' NOW":GOTO1100 
12000 CLS:BB$=LEFT$(B$,3) 

12050 IFBB$="MIR"ORBB$="GLA"THEN 

IFL=8ANDUB=0THEN12300 

12250 GOTO12490 

12300 INPUT"WITH WHAT";I$:I$=LEF 
T$(I$,3) 

12320 IFI$="CUT"ANDUB=0ANDO(6)=1 
000ORI$="GLA"ANDUB=0ANDO(6)=1000 
THENCLS:PRINT"IT CUTS A HOLE IN 
THE GLASS LARGE ENOUGH TO GO 

THRU...":UB=1:T(3,8)=9:GOTO1000 
12490 CLS:PRINT"YOU CAN'T CUT '" 
B$"' NOW":GOTO1100 
12500 CLS:BB$=LEFT$(B$,3) 

12530 IFBB$="VAS"ANDL=8ANDO(15)= 
1000ANDUA=0ORBB$="MIN"ANDL=8ANDO 
(15)=1000ANDUA=0THENCLS(3):PRINT 
@237,"SMASH";:GOSUB19020:PRINT02 
61,"GLASS MARBLES ALL OVER";:GOS 
UB19020:PRINT6295,"IN SPARKLING 
COLORS";:GOSUB19030:UA=1:0(24)=8 
:0(15)=-30:RC=RC-1:CLS:GOTO1000 
12540 IFBB$="DOO"ANDL=11ANDUF=0T 


HENG0T012994 

12990 CLS:PRINT"YOU CAN'T SMASH 

OR BREAK" ,...GOTO1100 

12994 INPUT"WITH WHAT";1$:I$=LEF 
T$(1$,3) 

12996 IFI$="AXE"ORBB$="FIR"THENI 
FO (7)=1000THEN12 997ELSEPRINT"YOU 

AREN'T CARRYING IT":GOTO1100 

12997 P=RND(10):IFP=>4THENCLS(0) 

: PRINT®23 6,"SMASH";:GOSUB19030:C 
LS :PRINT"THE DOOR SPLINTERS INTO 

PIECES":T(5,11)=12:UF=1:0(30)=1 
1:GOTO1000 

12998 IFP<4THENCLS:PRINT®224,"TH 
E AXE PUT A BIG GOUGE IN THE DO 
OR BUT DID NOT PENETRATE IT":GOS 
UB19030:CLS:GOTO1000 

13000 CLS:BB$=LEFT$(B$,3) 

13020 IFBB$="FLA"ANDO(18)=1000AN 
DDA=0ANDDB=1THENDA=1:CLS:PRINT®2 
34,"IT'S NOW LIT":GOSUB19020:PRI 
NT:GOTO1000 

13040 IFBB$="FLA"ANDDA=1THENPRIN 
T"IT'S ALREADY LIT":GOTO1000 
13490 CLS(0):PRINT6229,"YOU CAN' 
T LIGHT "B$" NOW";:GOSUB19020:GO 
TO1100 

13 500 CLS:BB$=LEFT$(B$,3) 

13520 IFBB$="FLA"ANDDA=1AND0(18) 
=1000ANDDB=1THENCLS:DA=0:PRINT02 
32,"THE LIGHT IS OFF":GOSUB19025 
:GOTO1000 

13540 IFBB$="FLA"ANDDA=0THENPRIN 
T"IT'S ALREADY OFF":GOTO1000 
13990 CLS:PRINT"YOU CAN'T UNLIGH 
T "B$" NOW":GOTO1100 
14000 CLS:BB$=LEFT$(B$,3) 

14010 IFBB$="LID"ORBB$="COV"THEN 
IFL=24ANDU5=2ANDO(1)=1000THENCLS 
:PRINT0232,"IT'S NOW OPEN":GOSUB 
19030:SOUND100,5:GOSUB20200:GOSU 
B19035:U5=3:CLS:GOTO1000 
14020 IFBB$="BRI"ANDL=7ANDUE=1TH 
ENCLS:PRINT"IT SLOWLY COMES OUT" 
:GOSUB19030:GOSUB19060:O(20)=7:U 
E=2:GOTO1000 

14490 CLS:PRINT"YOU CAN'T REMOVE 
THE '"B$"'","NOW":GOTO1100 
14500 CLS 

14510 BB$=LEFT$(B$,3) 

14550 IFBB$="PLA"ANDUJ=1ANDL=11T 

HENCLS(0):GOTO14800 

14770 CLS:PRINT"YOU CAN'T LIFT ' 

»B$"'":GOTO1000 

14800 P=RND(12) 

14810 IFP=>6THENCLS(0):PRINT@266 
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,"CCRREEAAKKKKK";:GOSUB19030:GOS 
UB19060:O(25)=11:UJ=2:0(31)=-30: 
GOTO1000 

14812 IFP<5THENCLS(0):PRINT@238, 
"OUCH" ;: GOSUB19030: CLS : PRINT"THE 
PLANK LIFTED A LITTLE AND FEL 

L BACK-YOUR BACK HURTS-":G0T 

01100 

14990 PRINT"YOU CAN'T LIFT THAT" 
:GOTO1000 

15000 CLS:PRINT®13,"verbs" 

15010 PRINT03 2,"TAKE,GET, OR 'GE 
T ALL'"/'DROP, OR 'DROP ALL"',"N 
,S,E,W,U,D",,"LOOK,1", /'MOVE,PUS 
H,PULL",,"UNLOCK",,"OPEN",,"INVE 
NTORY i",,"DIG" 

15020 PRINT"empTY SACK..",,"PUT" 
,,"INSERT":GOSUB19000 
15025 PRINT013,"verbs" 

15030 PRINT"CUT",,"SMASH,BREAK,C 
HOP","LIGHT", /'UNLIGHT", /'REMOVE 
", /’LIFT", /’VERBS" 

15040 PRINT"HELP",,"TWIST,TURN,D 

IAL",,"SCORE",,"LOAD",,"SAVE" 

15045 GOSUB19000 

15495 GOTO1000 

15500 CLS 

15510 A$=A1$ 

15515 IFL=13ANDUL=2THENCLS:PRINT 
@224,"THE BED HAS FOUR BEAUTIFUL 
TURNED POSTS":GOSUB19030:C 
LS:GOTO1000 

15520 IFL=2ANDU2=2THENPRINT"TIME 
TO TURN THINGS AROUND":GOTO1100 
15530 IFL=9ANDU6=0ANDHH=0ANDUC=1 
THENCLS:PRINT"THE CORRECT ACTION 

SHOULD BE OBVIOUS.":G 

OSUB19020:HH=1:GOTO1100 

15535 IFL=9ANDU6=0ANDHH=1THENCLS 
:PRINT"ASK YOUR DAUGHTER OR A YO 

UNG LADY." : HH=2 : G0T01 

100 

15536 IFL=9ANDHH=2THENCLS:PRINT" 
IF YOUR DAUGHTERS NAME WERE 

'ALICE' IT WOULD HELP.":HH= 

0:GOTO1100 

15540 IFL=24ANDU5=2THENCLS:PRINT 
@224,"WHAT DO YOU DO WITH A LID 
AFTER TURNING IT?":GOTO1100 
15550 IFL=7ANDUD=5THENPRINT"THE 

BRICK IS IMPORTANT-PURS 

UE YOUR QUEST":GOTO1100 
15560 IFL=11ANDUJ=0THENCLS:PRINT 
"A VERY IMPORTANT ROOM","GOOD LU 
CK":GOTO1000 

15570 CLS:IFL=8ANDUB=0THENPRINT" 


TRY TAKING INVENTORY OF YOUR 
'TOOLS' YOU SHOULD BE CARRYING": 
GOTO1000 

15572 IFL=7ANDUD=0ANDUD=0THENPRI 
NT"THE FIREPLACE IS IMPORTANT... 
. LOOK FOR CLUES ELSEWHERE":GOT 
01100 



15995 CLS:PRINTSTRING$(32, 

TRY LOOKING AT THINGS—SOMETIMES 

THERE IS A CLUE THERE." : PRI 

NT:PRINT"ALSO THINGS OFTEN MUST 
BE IN HAND BEFORE EXAMINING T 
HEM_" 

15996 PRINT:PRINT"DON'T FORGET T 

0 CHECK THE 'VERB' LIST FO 

R CLUES.":PRINTSTRING$(32, 

") 

15997 GOTO1100 

16000 CLS:BB$=LEFT$(B$,3) 

16030 IFBB$="KEY"ANDU2=2ANDU3=0A 
NDL=2THENPRINT@230,"CCCLLLLIIIIC 
CCCKKKKK":GOSUB1902 5:U2= 3:U3=1:G 
OTO1100 

16040 IFBB$="LID"ANDL=24ANDU5=1T 
HENCLS:PRINT6232,"IT IS NOW TURN 
ED":GOSUB19025:U5=2:GOTO1100 
16050 IFBB$="LID"ANDLD=0ANDL=23A 
NDU8=2ANDO(2)=1000THENCLS(0):PRI 
NT6238,"WHEW";:GOSUB19030:CLS:PR 
INT@25 6,"IT STARTED TO TURN BUT 
STUCK...":GOSUB19025:CLS:LD=1:U8 
=3:GOTO1000 

16052 IFBB$="LID"ANDLD=1ANDL=23A 
NDU8=3 THENCLS:PRINT@ 2 3 5,"it open 
ed":GOSUB19025:CLS:U8=4:GOTO1000 
16058 IFBB$="STR"ORBB$="DRA"ANDO 
(60)O1000THENCLS:PRINT625 6,"NOT 
IN HAND":GOTO1000 
16060 IFBB$="LID"ANDL=23ANDU8=3A 
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NDO (2) =1000THENCLS: PRINTS 192, STR 

ING$(32,"*"):PRINTS235,"IT OPENE 

D":PRINTS256,STRING$(32,:U8= 

4:GOSUB19025:GOTO1000 

16080 IFBB$="DIA"ANDL=16ANDUG=1T 

HENGOTO16600 

16090 IFBB$="KNO"ANDL=13THENGOTO 
16610 

16500 CLS:PRINT"YOU CAN'T TURN 0 
R DIAL THE— "B$:GOTO1100 
16600 INPUT"WHAT IS THE COMBINAT 
ION";I$ 

16602 IFI$=CM$THENCLS(0):PRINT@1 
38,"CLLIIICCCKKK";:GOSUB19030:PR 
INTS234,"IT UNLOCKED";:GOSUB1902 
5:UG=2:CLS:GOTO1000 
16610 INPUT"WITH WHAT";1$:I$=LEF 
T$ (1$, 3) 

16612 ' IFI$="WRE"ANDO(22)=1000AND 
UL=1THENUL=2:CLS:PRINTS227,"THE 

KNOB SLOWLY TURNS -":GOSUB1903 

0:PRINT" AND FALLS OFF THE POS 

T":GOSUB19030:CLS:GOTO1000 

16990 CLS:PRINT"SHUCKS—YOU CAN' 

T BUDGE THE—",B$:GOTO1100 

17000 CLS 

17002 GOSUB20000 

17005 SC=0 

17010 IFO(51)=>1000THENSC=SC+100 
17020 IFO(52)=>1000THENSC=SC+100 
17030 IFO(53)=>1000THENSC=SC+100 
17040 IFO(54)=>1000THENSC=SC+100 
17050 IFO(55)=>1000THENSC=SC+100 
17060 SC=SC+(TR*500) 

17089 IFLT=0THEN17100 

17090 TL=INT((LT/.40)) 

17100 PRINTS64,STRING$(32,CHR$(1 

33))"YOUR SCORE IS"SC"-","OUT 

OF"MM"MOVES BETWEEN ROOMS","YOU 
ARE ON YOUR"CO"PLAY",,,"BATTERIE 
S ARE AT"TL"%":PRINTSTRING$(32,C 
HR$(133)):PRINTS297,"PRESS ANY K 
EY":EXEC44539 
17300 CLS:GOTO1000 
17500 CLS:SOUND150,1:PRINT"tAPE 
OR dISK" 

17502 D$=INKEY$:IFD$=""THEN17502 
17510 DI$=LEFT$(D$,1) 

17520 IFDI$="T"THEND=-1ELSEIFDI$ 
="D"THEND=1ELSE17500 
17530 GOSUB19025:SOUND150,1:INPU 
T"FILENAME";F$ 

17535 CLS:PRINTS236,"loading" 
17540 OPEN"I",D,F$ 

17542 F0RC=1T024 

17543 INPUT#D,T(1,C),T(2,C) ,T(3, 


C),T(4,C),T(5,C),T(6,C):NEXTC 
17550 FORC=lTOY 
17560 INPUT#D,0(C):NEXTC 
17570 INPUT#D,TR,L,MM,RC,RS,SC,U 
1,U2,U3,U4,U5,U6,U7,U8,U9,LD,UA, 
UB,UC,UD,UE,UF, UG, UH,UI, UJ,UK,UL 
,UM,UN,UO,DA,DB,LT,CO,UP,CM$ 
17580 CLOSE # D:CLS:PRINTS 2 31,"THE 
GAME IS LOADED":PRINTS288,"YOU 
ARE BACK TO WHERE YOU WERE..":GO 
SUB19030:CLS:GOTO1000 
17990 CLS:PRINT"NOT PROGRAMED YE 
T":GOTO1100 
18000 CLS:GOTO18010 
18010 CLS:SOUND150,1:PRINT"tAPE 
OR dISK" 

18012 D$=INKEY$:IFD$=""THEN18012 
18020 DI$=LEFT$(D$,1) 

18030 IFDI$="T"THEND=-1ELSEIFDI$ 

="D"THEND=1ELSE18010 

18040 GOSUB1902 5:SOUND150,1:INPU 

T"FILENAME";F$ 

18045 CLS:PRINTS237,"saving" 
18050 0PEN"0",D,F$ 

18052 F0RC=1T024 

18053 PRINT# D, T(1,C),T(2,C),T(3, 
C) , T (4, C) , T (5, C) , T (6, C) 

18055 NEXTC 

18060 FORC=lTOY 

18066 PRINT#D,0(C):NEXTC 

18080 PRINT#D,TR,L,MM,RC,RS,SC,U 

1,U2,U3,U4,U5,U6,U7,U8,U9,LD,UA, 

UB,UC,UD,UE,UF,UG,UH,UI,UJ,UK,UL 

,UM,UN,UO,DA,DB,LT,CO,UP,CM$ 

18090 CLOSE#D:CLS:PRINTS231,"THE 
FILE IS SAVED":PRINTS288,"YOU C 

AN RETURN TO WHERE YOU WERE":GOS 
UB19030:CLS:GOTO1000 

18091 STOP 

18092 PRINTSTRING$(32,"=") 

18490 GOTO17990 

19000 PRINT"***PRESS ANY KEY TO 
CONTINUE***" 

19010 I$=INKEY$:IFI$=""THEN19010 
ELSECLS:RETURN 

19020 FORX=1TO500:NEXTX:RETURN 
19025 FORX=1TO1000:NEXTX:RETURN 
19030 FORX=1TO3000:NEXTX:RETURN 
19035 FORX=1TO5000:NEXTX:RETURN 
19040 FORX=1TO7000:NEXTX:RETURN 
19050 POKE150,18:PRINT#-2,CHR$(2 
7);CHR$(66):RETURN:'PRINTER DUMP 

19055 GOTO19056:'COMB LOCK ROUTI 
NE FROM 5 

19056 CM$=STR$(RND(99))+STR$(RND 
(99))+STR$(RND(99)):CM$=MID$(CM$ 
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, 2 ) 

19057 RETURN 

19060 X$=CHR$(128):CLS(0):PRINT@ 
232, "i"+X$+"see"+X$+"soinething"; 

:FORX=1T0400:NEXTX:CLS:RETURN 
19080 RC=0:RS=0:'CARRY TO MUCH R 
OUTINE 

19082 FORC-1TOY 

19084 IFO(C)«1000THENRC=RC+1 

19085 IFO(C)«2000THENRS=RS+1 

19086 NEXTC 
19088 RETURN 

19098 IFO(57)=1000THENGOTO19099E 
LSEPRINTRC'IN HAND":RETURN 

19099 PRINTRC"IN HAND",,RS"IN SA 
CK":RETURN 

20000 IFL=14ORL=18ORL=19ORL=20OR 

L=21THENIFDA=0THEN20060 

20030 RETURN 

20060 U$=CHR$(128):CLS(0):PRINT@ 
235,"it"+U$+"is"+U$+"dark"+U$;:P 
RINT@325, "do"+U$+"not"+U$+"move" 
+U$+"without"+U$+"light"+U$;:GOS 
UB19025:CLS(0):GOTO1105 
20070 F0RQ0=1T018 
20072 READNZ 

20074 PRINTCHR$(NZ);:SOUND200,1 
20076 FORA=1TO100:NEXTA 
20078 NEXTQO 

20080 DATA 89,79,85,143,65,80,80 
,69,65,82,143,84,79,143,87,65,76 
/ 75 

20085 RETURN 

20090 F0RQ0=1T020 

20091 READNZ 

20092 PRINTCHR$(NZ);:SOUND200,1 
20096 FORA-1TO150:NEXTA 

20098 NEXTQO 

20099 DATA143,84,72,82,79,85,71, 
72,143,143,84,72,69,143,77,73,82 
,82,79,82, 

20100 RETURN 

20200 PRINT"A SNAKE LEAPS OUT OF 
THE CAPSULEAND A PIECE OF PAPER 
IS REVEALED":0(50)=24:RETURN 
30068 GOTO1000 
30070 X=0:CLS(0) 

30072 KOLOR=RND(8) 

30074 X=X+1 
30076 OVER=RND(64)-1 
30078 DOWN=RND(32)-1 
30080 SET(OVER,DOWN,KOLOR) 

30082 IFX>200THEN30090 
30084 G0T030072 

30090 CLS:PRINT"CONGRATULATIONS! 

! YOU WIN!!!":FORA=1TO10:PLAY"VI 


505T255L255":F0RX=1T015:PLAY"CDE 
ACBV-":NEXTX:NEXTA:END 
30100 CLS(0):DG$=CHR$(128):PRINT 
@13 5, "the"+DG$+"lost"+DG$+"ainule 
t";:GOSUB19030 

30102 PRINT0260,"by"+DG$+"don"+D 
G$+"and"+DG$+"barbara"+DG$+"shee 
rin" ;:G0SUB1903 5 

30110 CLS:PRINT069,"THE OBJECT 0 
F THE GAME":FORX=1TO2000:NEXT:PR 
INT:PRINT:PRINT"1) TO LOCATE THE 
AMULET","2) INSERT 5 GEMS IN TH 
E AMULET","3) BE LOGICAL",,"4) H 
AVE FUN":G0SUB35050 
30116 PRINT:PRINT" IT'S NOT GOI 
NG TO BE EASY..."," USE THE GAM 
E SAVE FEATURE..."," ENTER load 
OR save TO USE IT..",," THERE 
ARE LOTS OF COMMANDS "," ENTE 
R VERBS TO REVIEW THE COMM 

ANDS":G0SUB3 5050 
30120 PRINT:PRINT"YOU CAN CARRY 
3 ITEMS IN HAND..","SEVEN ITEMS 
IN THE SACK..","iNVENTORY WILL H 
ELP COUNT."YOU CAN GET hELP 
TOO...","BE SURE TO 100K AT EVER 
YTHING..",,,"THERE IS A 'GET' OR 
'GET ALL"', "FEATURE TO SPEED TH 
INGS UP":GOSUB35050 
30122 PRINT:PRINT"USE THE 'DROP 
ALL'FEATURE TOO..",,,"ALSO 'EMPT 
Y SACK' EMPTYS ALL...",,,"BE LOG 
ICAL IN YOUR THINKING...",,,"CHE 
CK ON YOUR score AS YOU GO..",,, 
"A POSSIBLE 3000 POINTS AND A 
MINIMUM OF 40 MOVES IF YOU MAP 
IT":GOSUB35050 

30124 PRINT:PRINT"READ ALL NOTES 
AND SOME BACKTRACKING W 

ILL BE NECESSARY":PRINT:PRINT"CO 
NSERVE YOUR BATTERIES BY 'L 

IGHT' OR 'UNLIGHT' COMMANDS":PRI 
NT:PRINT"THERE IS A TOUCH OF MAG 
IC USED TOO":PRINT:PRINT"GOOD L 
UCK":G0SUB35050:G0T09 
35000 FORX=1TO3000:NEXT:RETURN 
35050 PRINT:PRINT:PRINT"****HIT 
ANY KEY TO CONTINUE*****":EXEC44 
539:CLS:RETURN 

40000 REM BY DON AND BARBARA SHE 
ERIN 

40002 REM 2535 W PERSHING AVE 
40004 REM PHOENIX,ARIZONA,85029 
40006 REM 602-993-4611 
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Program by Scott McCleary 


eports have been confirmed that a U.S. Army 
shipment of short range nuclear missiles has 
mysteriously disappeared. Although the re¬ 
sponsible party has not been identified, a group 
of corrupt international agents is highly sus¬ 
pected. It is believed that through a tightknit 
underground organization they were remarka¬ 
bly able to divert and receive the transfer of 
missiles. However, there is still no known 
motive that could account for the potentially 
terroristic activity. 

Using satellite infrared radar detection, the 
U.S. Air Force has located the stolen weaponry 
in an abandoned nuclear storage facility in 
Death Valley, Arizona. However, government 
officials are extremely apprehensive about 
staging an attempt to forcefully overthrow the 
operation. That’s why they call on you — Agent 
27, of the U.S. Department of Secret Affairs. 

In order to reduce the risk of an international 
catastrophe, you have been assigned to enter 
the storage base alone and collect any pertinent 
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information for headquarters. 

Following orders to procede with the mission immediately, you leave for the 
abandoned test sight. Utilizing the four-hour flight time, you are able to 
formulate a sophisticated, step-by-step plan of entry onto the base that looks 
pretty good on paper. But when you actually see the mysterious surroundings 
you are reminded that things don’t always go according to plan. 

From 100 yards away, it looks deserted, run-down and nearly camouflaged 
by the overgrown vegetation surrounding it. Looking through binoculars, it 
appears as though not a soul is in sight. The only sound heard is the distant 
roar of a jet, thousands of feet overhead. However, your experience warns you 
that the entire area is indubitably well-guarded by sharpshooters expertly 
trained in remaining unseen. 

Employing just about every spying technique available, your apparent 
undetected intrusion into the building reenforces your confidence. Following 
a blueprint image and cunning intuition alone, you manage to dodge enemy 
obstacles and make your way into the unmanned computer control room. 

You make a desperate attempt to gather enough information from the main 
computer to make the mission beneficial to headquarters. But when you 
discover that the missiles are strategically aimed and programmed to be 
launched, you realize there is no alternative but to stay and demolish the 
diabolical scheme. However, before being able to react, you are knocked 
unconscious .... You slowly come to. Dazed and disoriented, you stagger to 
your feet and focus your sight on the surroundings: 

YOU RRE IN R SMRLL EMPTY ROOM. 

Upon running Spymaster , you will see either a red or a blue screen; if it is 
red, press the reset button and run the program again until the screen is blue. 
Then, press the CLEAR key to begin the Adventure. 

The upper half of the Hi-Res graphics screen displays your surroundings. 
The lower half contains the text information. At the bottom of the screen is 
a hand pointing to 14 empty boxes. Each of these boxes corresponds with an 
object to be found within the building. As you pick up an object, it will be 
graphically displayed in the appropriate box. 

Travel is executed by typing GO, followed by the first letter of the direction 
of your choice: N, 5, E or W. The Adventure accepts the standard two-word 
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commands (a verb followed by a noun) and the following verbs may be used 
to help you obtain your goal: 


GET 

□ PEN 

GLUE 

PULL 

KICK 

PUSH 

LOOK 

THROW 

MOVE 

USE 


Is it possible to complete the mission and ultimately save the world? Only 
if you are a true spymaster! 

Note: To avoid getting an OM Error, the disk controller must be unplugged 
during game play. 


Scott McCleary is 16 years old and attends high school in Dorchester, 
Ontario. His favorite hobbies include playing guitar, drawing and tennis. 
He has had his Co Co for three years and Spymaster is his first major project 
in Adventure programming. Questions or comments may be addressed to 
Scott at 129 Canterbury Drive, Dorchester, Ontario NOL 1G0. Please 
enclose an SASE when requesting a reply. 


rf SPYMASTR 32K ECB 


0 PMODE 3 : PCLS 2 : S CREEN1,1: POKE 653 
14,248:PCLEAR4:CLEAR294:CLS 


1 P=PEEK(3 39) : IFPQ191T HEN 1 



2 Z=RND(-TIMER) 

3 D$=STRING$(32,"-") 

4 CLS:PRINT:PRINT:PRINT:PRINT:PR 
INT:PRINTTAB(7)"S P Y M A S T E 
R" 

5 PRINTTAB(11)"A GRAPHIC":PRINTT 
AB(11)"ADVENTURE":PRINT:PRINTTAB 
(7)"BY SCOTT MCCLEARY" 

6 IF YH=1 THEN 13 ELSE YH=1:PRIN 

T:PRINT:PRINT" DO YOU WANT 

TO USE":PRINT" THE FAST POK 

E? (Y/N) "; 

7 I$=INKEY$:IFI$=""THEN7 

8 IFI$<>"Y"ANDI$o"N"THEN7 

9 PRINTI$ 

10 IFI$="N"THEN PO=l ELSE PO=2 

11 PLAY"T1504V31EP4":PRINT©384,S 
TRING$(32,32) 
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12 ON PO GOSUB 539,540 

13 DIM C$(59),CU(1/2) 

14 DIM LO$(14),OB$(14),OB(14) 

15 DIM CG$(20),CG(20) 

16 DIM VB$(16),VB(16) 

17 DIM RE $(30) 

18 DIM CK(2,3) 

19 DIM SC(2,3) 

20 DIM SP(2,3) 

21 DIM GL(2,3),PB(2,3) 

22 DIM RK(2,3),WA(2,3) 

23 F0RX=1T014:READLO$(X),OB$(X), 
OB(X):NEXTX 

24 FORX=1TO20:READCG$(X),CG(X):N 
EXT 

25 F0RX=1T016:READVB$(X),VB(X):N 
EXT 

26 F0RX=1T030:READ RE$(X):NEXT 

27 GOSUB3 99 

28 DATAA PAIR OF TENNIS SHOES,SH 
OES,12,A SLIP OF PRINTOUT PAPER, 
PAPER,99,AN ELECTRONIC WATCH,WAT 
CH,9 9,REMOTELY-ACTIVATED EXPLOSI 
VES,EXPLOSIVES,21,A SCUBA SUIT,S 
UIT,1,AN UMBRELLA,UMBRELLA,2 3,A 
SMALL GUN,GUN,21,AN AEROSOL SPRA 
Y CAN,CAN,15 

29 DATAA TUBE OF SOOPER GLUE,GLU 
E,10,AN OLD RUSTY WRENCH,WRENCH, 
23,A REMOTE CONTROL DEVICE,DEVIC 
E,99,A KEY,KEY,99,A ROCK MADE OF 

PEBBLES,ROCK,99,SOME SMALL ROUN 
D PEBBLES,PEBBLES,5 

30 DATAA WOODEN DOOR,22,A LARGE 
WHITE SIGN,19,A SIGN FAR OFF TO 
THE EAST,18,A LARGE FILING CABIN 
ET,11,LOTS OF COMPUTER STUFF,16, 
A PLUSH CARPET,11,A SECRET ELEVA 
TOR,99,A LARGE DESK,11,A SHATTER 
PROOF WINDOW TO THE SOUTH,2,A BL 
ACK HELICOPTER,26 

31 DATACONTROL BUTTONS,6,A LARGE 
POOL FILLED WITH BLUISH WATER,7 

,A HUGE IRON DOOR WITH BUTTONS,8 
,A HATCH ON THE POOL WALL,30,A H 
UNGRY SHARK PATROLLING THE POOL, 
30,A HATCH ON THE HELICOPTER FLO 
OR,28,A TINY WINDOW ON THE WALL, 
9 

32 DATAHUNDREDS OF MISSILES,13,A 
DARK GLASS CABINET,25,A BLACK H 

ELICOPTER,27 

33 DATALOOK,l,GET,2,24-25-12,3,U 
SE,5,GLUE,6,PULL,7,PUSH,7,MOVE,7 
,OPEN,8,GO,9,KICK,10,THROW,11,N, 
12,S,13,E,14,W,15 


34 DATAOOIO,OOII,OOII,OIOI,OIOO, 
0100,1000,0000,0001,IIOI,0110,00 
01,1000,0110,1001,1110,0111,0011 
,IIOI,OIOO,1000,0000,0010,1011,1 
001,0010,0001,0001,0000,0000 

35 PM0DE4:PCLS1 

36 PM0DE4 

37 UM$="C0U4E4R10F4D4DUL3DUL3DUL 
3DUL3 DUL3DUL3 DBR6BU8DGDGD3BR5U9D 
R3DFDFDFDFBL7D6GL2HU 

38 SN$="C0H4U6E2R6F3DF5DFD2G2L6H 
LHLH5U 3F6RFRFR4EBU3BLL3GLG2BU5BR 
6BL4BU5BL4R3DFDL3H3RDF2RH2RF2RH2 
F2BL3LH2F2RF3R3H3BL4BDG2F2E2 

39 NN$="NORTH":EE$="EAST" 

40 SS$="SOUTH":WW$="WEST" 

41 UU$="UP":DD$="DOWN" 

42 FI$="T25501V31BABBGAV28AGAGFV 
24FEEGFEV18FEDV10EDCDCV5EDCDCDCC 
V2CCC" 

43 Y$="YOU 1 RE " 

44 COLOR0,1:LINE(7,0)—(11,8),PSE 
T,BF:GET(0,0)-(11,8),CU,G 

45 COLOR0:DRAW"BM80,70E3R4F3R9FD 
3LGLHLGLHLGLG2L4H3U4BR4R2FD2GL2H 
U2BR7BDR7 

46 GET(78,63)-(102,81),CK,G 

47 EP$="C0F2R5E2U11G2L5H2D11U11E 
2R5F2H2L2D2U3ER2FHL2GBD7BLLR3LDL 
UDRBD2BL2 DURBRBDRUDBLBD2L2R3LDLU 

48 DRAW"BM200,70LGFEUE2U2L3G1LGF 
EUE1R2URULRUL3G2E2R3DU2RD2LDUFE3 
UBD13BL13DU3D2UR3UD3UBR3RDBLBDDR 
BR3BU2U3R3D3L3 

49 GET(188,60)—(212,78),SC,G 

50 RM$="C0DF5H5UE9F5DG9E9UG9H5E9 
F3E4LFBG8G3HE3HG3BE5EBF2G 

51 DRAW"BM100,120C0U12R8D12L8U12 
R2URUR2DRDULULU2RBR3 BD7 L5D6R5U 2 L 
3UR3UL3 

52 GET(92,103)-(116,121),SP,G 

53 DRAW"BM160,120F4H4E7RER2FD2GD 
G7E7UEU2EHEFGULBR4BD2D2F2D2GLHU2 
E2 

54 GET(157,108)-(181,126),GL,G 

5 5 PE$="ERFDGLHU":F0RX=1T015:XX= 
RND (20)+200:YY=RND(16)+120:DRAW" 
BM"+STR$(XX)+","+STR$(YY)+PE$:NE 
XT 

56 GET(200,120)-(224,138),PB,G 

57 F0RX=1T016:READXX,YY:CO$=STR$ 
(XX)+","+STR$(YY):DRAW"BM"+CO$+P 
E$:NEXTX 

58 GET(15,164)-(39,182),RK,G 

59 DRAW"BM70,169C0U11E2R19F2D11G 
2L19H2BR3BU3R17U8L17D8BR3BU2U4BR 
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6RLD2RD2LBR4RLU2RU2L":PSET(79,16 
1):PSET(79,163):LINE(74,156)-(89 
,150),PSET,BF:LINE(74,172)-(89,1 
76),PSET,BF 

60 GET (70,154) - (94,172) , WA,G 

61 P1$="T25504V12E":P$=P1$ 

63 DU$="I DON'T UNDERSTAND." 

64 GT$="T9V3l04C":PD$="." 

65 NH$="YOU NOW HAVE THE " 

66 L=2 2 

67 PMODE4:G0T0130 

68 PMODE4:SCREEN1,1:PMODE3 

69 P$=P1$:GOSUB110 

70 ON L GOSUB 168,330,246,213,16 

8.315.340.357.362.376.175.168.36 

8.246.381.284.213.246.266.168.16 

8.149.168.376.381.315.199.199.16 
3,346 

71 ON L GOSUB 173,393,239,244,17 

3.322.395.394.367.389.198.173.37 
5,239,388,304,244,239,280,173,39 
0,161,173,391,392,325,209,211,39 
6,353 

72 GOSUB87 

73 IF A=0 THEN XX=0:YY=999:A$="I 
DON'T KNOW HOW TO '"+VV$+"'.":G 

OSUB7 6:GOTO72 

74 ON A GOTO 441,462,468,30400,4 
71,485,488,496,504,513,517,522,5 
22,522,522,61000 

75 XX=0:YY=YY+9 

76 IFA$=""THENRETURNELSEPMODE4:C 
OLOR0 

77 IFYY>=154THEN YY=100:GOSUB412 
:COLOR0 

78 EE=0:AA$=A$ 

79 FORX=lTOLEN(AA$) 

80 EE=EE+l:XX=XX+6 

81 MM$=MID$(AA$,EE,1) 

82 PUT(XX,YY-7)-(XX+11,YY+1),CU, 
PSET:PLAYP$ 

83 DRAW"BM"+STR$(XX)+","+STR$(YY 
)+C$(ASC(MM$)-31) 

84 NEXTX 

85 COLOR1:LINE(XX+6,YY-7)-(XX+11 
,YY+1),PSET,BF 

86 RETURN 

87 XX=XX+1 

88 XX=-6:YY=YY+9 

89 A$="READY-(»:GOSUB76 

90 11$="" 

91 XX=57:HF=0:COLOR0:LINE(XX,YY- 
7)-(XX+4,YY+1),PSET,BF 

92 I$=INKEY$ 

93 IF I$=""THEN92 

94 IFI$=CHR$(21)THEN102ELSEIFI$= 


CHR$(13)THEN99ELSEIFI$=CHR$(8)TH 
ENGOSUB104:G0T092ELSEIF(I$=CHR$( 
3)ORI$=CHR$(9)ORI$=CHR$(10)ORHF> 
25 ORI$=CHR$(12)ORI$=" A ")THEN92 
ELSEPUT(XX,YY-7)-(XX+11,YY+1),CU 
,PSET:DRAW"C0BM"+STR$(XX)+","+ST 
R$(YY)+C$(ASC(I$)-31) 

95 II$=II$+I$ 

96 HF=HF+1 

97 PLAY"T5503V31A" 

98 XX=XX+6:G0T09 2 

99 Z$=II$ 

100 COLORl:LINE(XX,YY-7)-(XX+11, 
YY+1),PSET,BF 

101 G0T0423 

102 FORT=lTOHF:GOSUB10 4:NEXT 

103 G0T092 

104 IF HF<1 THEN RETURN ELSE HF= 
HF-1:II$=LEFT$(II$,HF) 

105 XX=XX-6 

106 COLOR1:LINE(XX,YY-7)-(XX+11, 
YY+1),PSET,BF 

107 PLAY"T45O2V30A" 

108 COLOR0:LINE(XX,YY-7)-(XX+4,Y 
Y+l),PSET,BF 

109 RETURN 

110 PMODE4 

111 F0RX=1T014:IFOB(X)=-l THEN G 
OSUB115 

112 NEXTX 

113 COLOR0,1 

114 RETURN 

115 ON X GOSUB 116,117,118,119,1 
20,121,122,123,124,125,126,127,1 
28,129:RETURN 

116 DRAW"BM96,185"+SN$:RETURN 

117 DRAW"BM148,154C0R13LD5R6H4F4 
D5L19U10":RETURN 

118 PUT(228,171)-(252,189),WA,PS 
ET:RETURN 

119 DRAW"BM236,166"+EP$:RETURN 

120 PUT(60,171)-(84,189),SC,PSET 
:RETURN 

121 DRAW"BM203,160"+UM$:RETURN 

122 PMODE4:DRAW"BM63,155C0UR19D2 
L4F2DF2L5RH2UH2L3DLRDR4U2L8UL3U" 
:PAINT(70,155),0,0:RETURN 

123 PUT(116,171)-(140,189),SP,PS 
ET:RETURN 

124 PUT(116,150)-(140,168),GL,PS 
ET:RETURN 

125 DRAW"BM160,186C0H6L4H2U4F3E2 
H3R4F3D3F8DG2H2":RETURN 

126 DRAW"BM204,182"+RM$:RETURN 

127 PUT(88,150)-(112,168),CK,PSE 
T: RETURN 
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128 PUT(172,171)-(196,189),RK,PS 
ET 

129 PUT (172,150)-(196,168) , PB, PS 
ET:RETURN 

130 CLS:PM0DE3:PCLS4:C0L0R1 

131 GOSUB13 7:PMODE3:COLOR1:LINE( 
2,148)-(255,191),PSET,B:LINE(0,0 
)- (255,90) ,PSET,B:LINE(0,1)-(255 
,91),PSET,B 

132 FORX=58TO250STEP28 

133 LINE(X,149)-(X+28,169),PSET, 
B 

134 LINE(X,170)-(X+28,190),PSET, 
B 

135 NEXTX 

136 G0T0144 

137 PMODE4,1:COLOR0:P$="" 

138 XX=3:YY=158:A$="YOU ARE" 

139 GOSUB78 

140 COLOR0 

141 XX=3:YY=YY+9:A$="HOLDING:" 

142 GOSUB78 

143 RETURN 

144 PMODE4:COLOR0 










145 LINE(4,174)-(22,186),PRESET, 
BF 

146 DRAWBM2 2,175C0R6D11L6R6U11R 
2E3R5F3D7L2H2U2LG2BE6BU2R14FDGL1 
2R4FDGL4R2FDGL6GDFR4EHBD2L2GL6HL 
2 

147 DRAW"BM25,178D 

148 GOTO68 

149 GOSUB412:PMODE3:CL=3:GOSUB41 
4 

150 PMODE3,1 


151 COLOR1:LINE(6,2)-(160,16),PS 
ET 

152 LINE-(252,12),PSET 

153 LINE(160,16)-(160,70),PSET:L 
INE-(4,90),PSET 

154 LINE(160,70)-(252,80),PSET 

155 PAINT(160,88),2,1 

156 LINE(200,74)-(200,30) , PSET 

157 LINE-(230,29),PSET 

158 LINE-(230,77),PSET 

159 LINE(226,53)-(226,55),PSET 

160 IFDK=1THENG0SUB516:PAINT(216 
,70),2,1:RETURN ELSE RETURN 

161 A$=Y$+"IN A SMALL EMPTY ROOM 

... ii 

162 G0T0397 

163 PMODE4:SCREEN1,1 

164 GOSUB412:CL=2:GOSUB414 

165 PMODE3,1:DRAW"S4BM114,24C1R1 
6U6R20U3D4L20U2L10G6E6R6U4DL18R3 
6":PAINT(118,22) ,1,1 

166 COLOR3:LINE(2,66)-(252,89),P 
SET,BF:DRAW"BM2,66C3U30F20E10F20 
":PAINT(4,60),3,3:COLOR1:LINE(10 
0,72)-(156,42),PSET,BF:LINE(90,5 
2)-(166,72),PSET,BF 

167 RETURN 

168 GOSUB412 

169 PMODE3 

170 CL=2:GOSUB414 

171 COLOR1:LINE(22,2)-(52,12),PS 
ET:LINE-(202,12),PSET:LINE-(232, 
2),PSET:LINE(202,12)-(202,76),PS 
ET:LINE-(52,76),PSET:LINE-(32,89 
),PSET:LINE(52,76)-(52,12),PSET: 
LINE(202,76)-(222,89),PSET:PAINT 
(120,80),3,1 

172 RETURN 

173 A$=Y$+"IN A WIDE, EMPTY CLOS 
ET. " 

174 G0T0397 

175 GOSUB412 

176 PMODE3 

177 CL=3:GOSUB414 

178 COLOR1:LINE(20,2)-(40,12),PS 
ET:LINE-(200,12),PSET:LINE-(200, 
78),PSET:LINE-(40,78),PSET:LINE- 
(16,90),PSET:LINE-(40,78),PSET:L 
INE-(40,12),PSET:LINE-(200,12),P 
SET:LINE-(200,22),PSET:LINE-(254 
,22),PSET:LINE-(254,72),PSET:LIN 
E- (200,72) ,PSET 

179 PAINT(100,2),4,1 

180 PAINT(100,88),2,1 

181 LINE(30,7)-(254,7),PSET:LINE 
(200,12)-(254,12),PSET:DRAW"BM25 
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4,12C1D3L54D3R54D2L54 

182 Xl=46:X2=28 

183 F0RX=1T09 

184 Xl=Xl+18:X2=X2+22 

185 LINE(X2,2 ) -(XI,12),PSET:NEXT 

186 LINE(200,16)-(210,11), PSET 

187 LINE(206,22)-(252,2), PSET 

188 LINE (220,22)-(256,10) , PSET 

189 LINE(234,22)-(252,16), PSET 

190 DRAW"BM86,84C1U24L2U2R60D2L2 
D24L2U10L52D10U10R6D7BR40U7 

191 PAINT(90,60),1,1 

192 DRAWBM106,55H2U6E2R16F2D6G2 
L16R4BU5UBR8DBD5D6L8U6D6L6D22BR2 
0U22L4D20U20L12D20 

193 PAINT(110,52),2,1 

194 C0L0R4:LINE(160,25)-(186,80) 

,PSET,BF 

195 F0RY=26T070STEP11 

196 LINE(164,Y)-(184,Y+9),PRESET 
,B:LINE(172,Y+2)-(17 6,Y+3) ,PRESE 
T,BF:NEXT 

197 RETURN 

198 A$=Y$+"IN A LARGE MODERN OFF 
ICE.":G0T0397 

199 PMODE4:SCREEN1,1 

200 GOSUB412 

201 PMODE3 

202 CL=2:GOSUB414 

203 COLOR4 

204 LINE(2,80)-(62,50),PSET:LINE 
-(192,50),PSET:LINE-(252,80),PSE 
T:DRAW"BM252,80C4D9L250U9 

205 PAINT(120,60),4,4 

206 DRAW"BM80,60C1" 

207 H$="H4F4R66UL66H4F4R18U8R2D8 
U8L2R30D8R2U8D8L2U8R14E10R50E16L 
10G10L4 6H8L40GLGLGLGLGLGLGLGLGLG 
LGLGLGLGLR28U14D14L28D10R20BR20B 
U20U10R2D10R2U10L2U4DL70R140":DR 
AWH$ 

208 PAINT(120,40) ,1,1sRETURN 

209 A$=Y$+"ATOP THE ROOF." 

210 G0T0397 

211 A$=Y$+"IN THE HELICOPTER." 

212 G0T0397 

213 GOSUB412 

214 PMODE3 

215 CL=2:GOSUB414 

216 COLOR1 

217 LINE(40,0)-(60,10) , PSET 

218 LINE-(60,79),PSET 

219 LINE-(40,89),PSET 

220 LINE (214,0) - (19 4,10) , PSET 

221 LINE-(194,79),PSET 

222 LINE-(214,89),PSET 


223 LINE(60,21)-(194,21),PSET 

224 LINE(60,68)-(194,68),PSET 

225 PAINT(120,80),3,1 

226 PAINT(120,10),4,1 

227 LINE(40,0)-(80,20),PSET 

228 LINE(214,0)-(174,20),PSET 

229 AB=83:PMODE4:COLOR0 

230 FOR X=63 TO 204 STEP 26 

231 AB=AB+13 

232 LINE(X,0)-(AB,20),PSET:LINE( 
X-l,0)-(AB-1,20),PSET 

233 NEXT 

234 LINE(60,18)-(66,20),PSET 

235 LINE(194,18)-(188,20),PSET 

236 LINE(58,9)-(196,9),PSET 

237 LINE(60,17)-(194,17) , PSET 

238 RETURN 

239 A$=Y$+"IN A HALLWAY." 

240 XX=-6:YY=100:GOSUB76 

241 GOSUB43 4 

242 GOSUB415 

243 RETURN 

244 A$=Y$+"AT THE END OF A HALLW 
AY. " 

245 GOTO397 

246 GOSUB412:PMODE3 

247 CL=2:GOSUB414 

248 COLOR1 

249 LINE(32,2)-(82,27),PSET 

250 LINE-(82,64),PSET:LINE-(32,8 
9),PSET 

251 LINE(222,2)-(172,27),PSET:LI 
NE-(172,64),PSET:LINE-(222,89),P 
SET 

252 LINE(82,32)-(172,32),PSET:LI 
NE(82,58)-(172,58),PSET 

253 PAINT(120,20),4,1 

254 PAINT(120,60),3,1:IFL<>18 TH 
EN 259 

255 PMODE3:COLOR4:LINE(114,37)-( 
142,51),PSET,BF 

256 PMODE4:COLOR0 

257 V$="RLD2R2U2D2R2U2RLD2R2U2RL 
D2R4U2LR2LD2R3U2RDLDR3U2RD2R2U2R 
LD2R4ULUR":DRAW"BM117,38"+V$:DRA 
W"BM121,42"+LEFT$(V$,41)+"D2" 

258 DRAW"BM125,47R6UF2G2UL6U2DR7 

259 PMODE4:COLOR0:GG=92 

260 FORTT=50TO206STEP22 

261 GG=GG+8 

262 LINE(TT,0)-(GG,32),PSET:LINE 
(TT+1,0)-(GG,32),PSET 

263 NEXT 

264 LINE(46,8)-(210,8),PSET:LINE 
(60,16)-(196,16),PSET:LINE(72,22 
)-(18 4,2 2) ,PSET:LINE(82,27)-(17 4 
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,27),PSET:LINE(84,30)-(172,30),P 
SET:LINE(82,27)-(90,31),PSET:LIN 
E(174,27)-(166,31), PSET 

265 RETURN 

266 PM0DE3:P$= mm 

267 GOSUB213 

268 PM0DE3:C0L0R4 

269 LINE(88,27)-(168,59),PSET,BF 
27p PM0DE4:COLORS:A$="ELECTRONIC 
S" 

271 XX=90:YY=3 5:GOSUB76 

272 A$="SECTION" 

273 XX=102:YY=45:GOSUB76 

274 PMODE4:DRAW"BM118,51C0R14U3R 
FRFRFRFRFRLGLGLGLGLGLU 3 L14U3" 

275 PAINT(123,53),0,0 

276 PMODE3:COLOR1 

277 PSET(90,28) : PSET (166,28) 

278 PSET(90,58):PSET(166,58) 

279 P$=P1$:RETURN 

280 XX=-6:YY=100:A$=Y$+"AT AN IN 
TERSECTION OF HALLWAYSGOSUB76 

281 GOSUB43 4:GOSUB415 

282 RETURN 

283 G0T0283 

284 GOSUB412 

285 PMODE3 

286 CL=4:GOSUB414 

287 CP$="C1U4R2U2L2U11RFRFHLHLR1 
6RFRFRFRD11L16HLHLHLRFRFRFU11R16 
BD11BD2BL2L14DHLHLHLFRFRFRFRFRFR 
16HLHLHLHLL2UDL12DHLHLHLD4RFRFRF 
RFRFR3U3D3R16U3 

288 SC$="C0U5ER7FD5GL7H 

289 COLOR1:LINE(16,47)-(42,60),P 
SET:LINE-(254,52),PSET:LINE-(230 
,40),PSET:LINE-(16,47),PSET 

290 B=50 

291 FORX=30TO220STEP30:B=B-1 

292 AA$=STR$(X):BB$=STR$(B) 

293 DRAW"BM"+AA$+","+BB$+CP$ 

294 PMODE4:DRAW"BM"+STR$(X+10)+" 
,"+STR$(B-6)+SC$ 

295 PAINT(X+14,B-9),0,0:PMODE3 

296 NEXT 

297 PAINT(2,2) ,2,1 

298 PAINT(128,54),3,1 

299 COLOR1 

300 LINE(16,47)-(16,70),PSET 

301 LINE-(42,83),PSET:LINE-(42,6 
0),PSET:LINE-(42,83),PSET:LINE-( 
254,76),PSET:LINE-(254,52),PSET 

302 PAINT(120,75),3,1:PAINT(32,7 
5) ,3,1 

303 RETURN 

304 XX=-6:YY=100:A$=Y$+"IN THE C 


OMPUTER ROOM.":GOSUB76 

305 GOSUB43 4:GOSUB415 

306 RETURN 

307 GOTO307 

308 GOSUB412 

309 C=2:GOSUB414 

310 RETURN 

311 A$=Y$+"SOMEWHERE IN THE BUIL 
DING":XX=-6:YY=100:GOSUB76 

312 GOSUB43 4 

313 GOSUB415 

314 RETURN 

315 REM 

316 GOSUB412:SCREEN1,1 

317 PMODE3:COLOR2:LINE(2,2)-(252 
,89),PSET,BF 

318 COLOR1 

319 LINE(10,2)-(40,17),PSET:LINE 
-(214,17),PSET:LINE-(244,2),PSET 
: LINE(40,17)-(40,90),PSET:LINE(2 
14,17)-(214,90) , PSET 

320 DRAW"BM54,90C1U54R120D54U54B 
R10BD54U44R20D44U2L20U6R20U6L20U 
6R20U6L20U6R20U6L20R20BU6L10D44 

321 PAINT(80,60),3,1:RETURN 

322 A$=Y$+"IN A TINY SECRET ELEV 
ATOR.":GOTO 397 

323 PMODE3,1:COLOR2,1:F0RX=56T01 
16STEP2 

324 LINE(X,37)-(X,89),PSET:LINE( 
228-X,37)-(228-X,89),PSET:NEXT 

325 LINE(114,37)-(114,89),PRESET 
:RETURN 

326 RETURN 

327 PMODE3,1:COLOR3,1:FORX=116TO 
56STEP-2 

328 LINE(X,37)-(X,89),PSET:LINE( 
228-X,37)-(228-X,89),PSET:NEXT 

329 RETURN 

330 GOSUB412:CL=4:GOSUB414 

331 GOSUB171 

332 LINE-(222,24),PSET:LINE-(244 
,19),PSET:LINE-(244,89),PSET 

333 LINE(32,89)-(32,24),PSET:LIN 
E- (10,19) ,PSET:LINE-(10,89) ,PSET 

334 LINE(10,76)-(32,76),PSET:PAI 
NT(12,77),3,1:LINE(222,76)-(244, 
76),PSET:PAINT(224,77),3,1 

335 LINE(72,22)-(182,66) ,PSET,B 

336 COLOR2 

337 LINE(74,32)-(92,23),PSET:LIN 
E(74,40)-(108,23),PSET:LINE(74,4 
1)-(110,2 3),PSET:LINE(74,60)-(14 
8,23),PSET:LINE(116,65)-(180,33) 

,PSET:LINE(122,65)-(180,36),PSET 
:LINE(162,65)-(180,56),PSET 
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338 IFRE$(2)="0III"THENPM0DE4:DR 
AW"BM113,32S5C0F4UEUEUDFDFDFE6D2 
GD2GD2GD2GR2FR2FR2FL8FDFDFDFDFDF 
H6D2LD2LD2U 2 LU 2 LU 2 G 8 EUEUEUEUEUEU 
EUL2H L 2 H L 2 HERRERRERRERRHUHUHUHUH 
UHS 4":PAINT(12 6,44),0,0 

339 RETURN 

340 GOSUB412:CL=4:GOSUB414 

341 PM0DE3:C0L0R1 

342 LINE (20,2 ) - (40,12 ),PSET:LINE 
-(40,49),PSET:LINE-(0,89),PSET:L 
INE(234,2)-(214,12),PSET:LINE-(2 
14,49),PSET:LINE-(254,89),PSET:L 
INE(40,12)-(214,49),PSET,B 

343 LINE(48,56)-(206,56),PSET:LI 
NE-(228,82),PSET:LINE-(26,82),PS 
ET:LINE-(48,56),PSET:LINE(48,56) 
-(48,82),PSET:LINE(206,56)-(206, 
82),PSET 

344 COLOR2:LINE(50,63)-(204,81), 
PSET,BF:COLOR1:LINE(46,66)-(36,8 
1),PSET:PAINT(40,80),2,1:LINE(20 
8,66)-(218,81),PSET:PAINT(214,80 
),2,1:COLOR2:LINE(46,66)-(36,81) 

,PSET:LINE(208,66)-(218,81),PSET 

345 RETURN 

346 GOSUB168 

347 PAINT(120,80),2,1 

34 8 SH$="C4E10D9R10DR10DR10DR10E 
5E3R2L2D4L2U2D2D4L2D2R2D6U2R2D4R 
2L2H5L4DL10DL8DL4DL10DL10D12H12L 
10UL8UL6UER2ER2ER2U2L10HL2HL2H2E 
2R40 

349 DRAW"BM110,40"+SH$:PAINT(110 
,45),4,4 

350 PMODE4:COLOR0 

351 DRAW"BM84,41RDL 

352 RETURN 

353 A$=Y$+"IN A LARGE INDOOR POO 
L. ":XX=-6:YY=100:GOSUB76 

354 GOSUB434:GOSUB415 

355 IFSP=0THENA$="THE SHARK GOBB 
LES YOU UPI":GOSUB75:GOTO538 

356 A$="THE SHARK REPELLANT PROT 
ECTS YOUi":GOSUB75:G0T072 

357 GOSUB412 

358 CL=3:GOSUB414:GOSUB171:COLOR 
2: LINE(100,26)-(156,76) ,PSET,BF 

359 DRAW"BM100,76C1U50R56D50L56R 
56U18BL6U12L16D12R16BL4BU4U4BUBL 
2L4BDBL2D4BR2BDR4L2BU2U2 

360 DRAW"BM220,30R4ER4ER4ER4ER4D 
32L4HL4HL4HL4HL4U24BR20BD11D2 

361 RETURN 

362 PMODE4:SCREEN1,1:GOSUB412:CL 
=4:GOSUB414 



363 GOSUB171:P$="" 

364 DRAW"BM114,40C1R20D10L20U10B 
R6BD4R8DL8DR8 

365 A$="SECURITY CHECK":XX=78:YY 
= 37:GOSUB76:A$= M PRESS I.D. HERE" 
:XX=76:YY=60:GOSUB76 

366 P$=P1$:RETURN 

367 A$=Y$+"AT THE SECURITY CHECK 
POINT.":G0T0397 

368 GOSUB412:PMODE3:CL=2:GOSUB41 
4 

369 COLOR4:F0RX=2T0248STEP28:LIN 
E(X,80)-(X+ 2 4,89) ,PSET,BF:NEXT:M 
N$="C1S8LRU6E2UE4F4DF2D6L2GL6HLB 
R2BU5UEUEUS4" 

370 F0RX=2T0248STEP28 

371 DRAW"BM"+STR$(X)+",80"+MN$:P 
AINT(X+6,76),3,1:NEXT 

372 F0RX=16T0228STEP28:DRAW"BM"+ 
STR$(X)+",55"+MN$:PAINT(X+6,54), 
3,1:PAINT(X+10,62),4,1:NEXT 

373 FORX=30TO208STEP28 : DRAW".BM" + 
STR$(X)+",2 9"+MN$:PAINT(X+ 6,2 6), 
3,1:PAINT(X+10,36),4,1:NEXT 

374 RETURN 

375 A$=Y$+"IN THE MISSILE LAUNCH 
BUILDING 1":G0T039 7 

376 PMODE4:SCREEN1,1:GOSUB412:PM 
ODE3:CL=4:GOSUB414 

377 GOSUB171 

378 LINE(60,30)-(90,50),PSET,B:P 
N$="BD2DBD2DBD2DBD2DBD2DBR4U14R1 
6D14L16":DRAW"BM64,32C1"+PN$ 

379 DRAW"BM96,76C1U50R64D50L64R3 
2U50BR8BD4R16D42L16U42D22BL4U2BL 
8D2BL4U22D42L16U42R16 



38p RETURN 

381 G0SUB412:CL=2:G0SUB414 

382 G0SUB171:G0SUB379 

383 PAINT(128,5),4,1 

384 C0L0R4 : LINE (166,3)3) - (19 6,5)3) 

,PSET,BF:DRAW"BM17)3,32C1"+PN$:RE 
TURN 

385 RETURN 

386 GOSUB381:PAINT(128,87),2,1:R 
ETURN 

387 GOSUB376:PAINT(128,87),4,1:R 
ETURN 

388 A$=Y$+"IN THE SOUTH SCIENCE 
LAB.":G0T0397 

389 A$=Y$+"IN THE NORTH SCIENCE 
LAB.":GOTO397 

39)3 A$=Y$+"IN A WEAPONS STORAGE 
ROOM.":G0T0397 

391 A$=Y$+"IN THE WEST ELECTRONI 
CS ROOM.":GOTO397 

392 A$=Y$+"IN THE EAST ELECTRONI 
CS ROOM.":G0T0397 

393 A$=Y$+"IN A WHITE SQUARE ROO 
M. ":G0T0397 

394 A$=Y$+"IN A SQUARE, VACCUUM- 
DRY ROOM.":GOTO397 

395 A$=Y$+"IN AN INDOOR POOL ARE 
A.":GOTO397 

396 A$=Y$+"OVER THE BASE IN A HE 
LICOPTER":G0T0397 

397 XX=-6 : YY=1)3)3 : GOSUB7 6 

398 GOSUB434:GOSUB415:RETURN 

399 REM LETTERS 

4)3)3 READ CH$:IF CH$="XX"THEN 4)33 
4)31 QQ=QQ+1:C$(QQ)=CH$ 

4)32 G0T04)3)3 
4)33 REM 

4)34 DATA, BRRLBU2U4RD4 , BU4U2BR3D2 
,BRU6BR2D6U2RL4BU2R4,BUR4U2L4U2R 
4L2UD6,UE4UBL4DBD5BR4U,BUR4L4U2R 
4L4U2R4LUD6,BR2BU4U2,BR3H2U2E2,B 
R2E2U2H2,BR2BUU4D2L2R4LUL2D2R2,B 
R2U6D3L2R4,BUBR2URDLRDG,BU3BRR3, 
BR2URDL,UE4U 

4)35 DATABUU4BER2BFD4BGL2BU2E3 , BR 
R2LU6DL,R4L4UE4UL3G,UDR3BEUHEUHL 
3DUR3FDGL2,BR4U6D3L4U3,R3BEUHL2H 
U2R4,BUU 4 ER2 L2GD4 FR2 EUHL2,UE4UL4 
D,BUUEHUER2FDGFDGL2HBU2BR2R,R3EU 
4HL2GDFR3 

4)36 DATABR2BUURDULBU2URD, BRBUEBU 
2U, BR4LH3E3R, BU2R4BU2L4 , RE3H3L, B 
R2UBU2URU2L3D,R4L4U6R4D4LU 
4)37 DATAU4E2F2D4U2L4 ,U6R3FDGL2R2 
FDGL2,BUU4ER2FHL2GD4FR2E,RU6LR3F 
D4GL3,R4L4U6R4L4D2R2,U6R4L4D2R2, 


BUU4ER2FHL2GD4FR3U3L,U6D2R4U2D6, 
BRR2LU6LR2,BUUDBDBRR2 BEU5 L,U 6 D 3 R 
2E2UDG2F2D,U6D6R4 
4)38 DATAU6F2E2D6, U6F4U4D6, BUU4ER 
2FD4GL2H,U6R3FDGL3,BUU4ER2FD4GL2 
HFR3H2F3,U6R3FDGL3R2F2D,UDR3EUHL 
2HUER3D,BR2U6L2R4,BUU5BR4D5GL2,B 
R2E2U4BL4D4F2,U6D6E2F2U6,UE4UBL4 
DF4D,BR2U3H2UBR4DG2,R4L4UE4UL4 
4)39 DATA XX 

41) 3 RETURN 

411 F0RX=1T014:PRINTX;;;OB$(X):N 
EXT 

412 PMODE3,1:COLOR4 

413 F0RY=94T0146STEP9 : LINE ()3 , Y) - 
(2 54,Y+ 7),PSET,BF:NEXT:PMODE4:RE 
TURN 

414 PMODE3,1:COLORCL:LINE(2,2)-( 
252,89),PSET,BF:RETURN 

415 TT=)3: EX$="EXITS : ":RE$=RE$(L 

) 

416 IF MID$(RE$,1,1)="I" THEN EX 
$=EX$+" *NORTH":TT=TT+1 

417 IF MID$(RE$,2,1)="I" THEN EX 
$=EX$+" *SOUTH":TT=TT+1 

418 IF MID$(RE$,3,1)="I" THEN EX 
$=EX$+" *EAST":TT=TT+1 

419 IF MID$(RE$,4,1)="I" THEN EX 
$=EX$+" *WEST":TT=TT+1 

42) 3 IF RE$ (L) ="0000" THEN EX$=EX 
$+"NONE." 

421 XX=-6:YY=YY+9:A$=EX$ 

422 G0SUB76:RETURN 

423 REM 

424 Z$=Z$+" ":XX$=Z$ 

425 A= ( 0:B= ( 0:VV$="":BB$="" 

426 F0RX=1T0LEN(Z$) 

427 IFMID$(XX$,X,1)=" " THENVV$= 
LEFT$ (XX$,X-l):BB$=MID$(XX$,X+l, 
LEN(XX$)):G0T0428 ELSE NEXT:GOTO 
431 

428 BB$=LEFT$(BB$,LEN(BB$)-1) 

429 IFBB$=""THEN431 

43) 3 BB$=LEFT$ (BB$ , LEN (BB$) -1) 

431 F0RXX=1T016:IF VV$=VB$(XX) T 
HEN A=VB(XX):RETURN ELSE NEXT 

432 RETURN 

433 Z$="XXX":RETURN 

434 ST=)3 

435 XX=-6:YY=YY+9:A$="YOU SEE:": 
GOSUB76 

436 FOR Q=1T02)3: IF CG(Q)=L THEN 
A$="*"+CG$(Q):XX=-6:YY=YY+9:GOSU 
B7 6:ST=1:NEXT ELSE NEXT 

437 FOR Q=1T014:IF OB(Q)=L THEN 
A$="*"+LO$(Q):XX=-6:YY=YY+9:GOSU 
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B76:ST=1:NEXT ELSE NEXT 

438 IF ST=J3 THEN A$="NOTHING. " : X 
X=48 : YY=1)39 : GOSUB76 

439 RETURN 

44) 3 DATA 2)3,17)3,24,166,28,166,32 
,17)3,32,17 4,28,178,2 4,178,2)3,174 
,24,17)3,28,17)3,24,17 4,2 8,17 4,22, 
168,3)3,168,2 2,17 6,3)3,17 6 

441 ' 

442 J=)3 : IF BB$=" "THEN46)3 

443 GOSUB541: GOSUB544 : IF Q>)3 AND 
(OB (Q) 0-1 AND OB (Q) <>L) THEN461 
ELSEIFQ>)3 AND (OB (Q) =-l OR OB(Q) = 
L) THEN ON Q GOSUB 4 4 4,445,446,44 
7,4 48,44 9,45)3,451,452,453,454,45 
5,456:A$=M$:G0SUB75:G0T072 ELSE 
458 

444 M$="THEY'RE MADE OF 'NO-SLIP 
' RUBBER":RETURN 

445 GOSUB459:RETURN 

446 M$="IT IS WAFER-THIN AND HAS 
NO BUTTONSRETURN 

447 M$="THEY ARE FOR USE WITH RE 
MOTE-CONTROL.":RETURN 

448 M$="IT IS A BLACK SUIT WITH 
OXYGEN TANKSRETURN 

449 M$="IT IS STURDY AND WATERPR 
OOF.":RETURN 

45) 3 M$="IT IS A SMALL AUTOMATIC 
PISTOL.":RETURN 

451 A$="IT HAS A LABEL. THE WORD 
'REPELLANT'":G0SUB75:M$="IS ALL 
THAT IS READABLE.":RETURN 

452 M$="IT IS STRONG AND PERMANE 
NT.":RETURN 

453 M$="IT IS STRONG AND STURDY. 
":RETURN 

454 M$="THERE IS A BIG RED BUTTO 
N ON IT.":RETURN 

455 M$="IT IS DESIGNED TO FIT SE 
VERAL LOCKS.":RETURN 

456 M$="IT IS MADE OF SMALL PEBB 
LES.":RETURN 

457 M$="THEY ARE SMALL AND ROUND 
.":RETURN 

458 A$="I SEE NOTHING OF INTERES 
T. ":GOSUB75:G0T072 

459 YY=999:A$="IT HAS A SECRET C 
ODE ON IT:":GOSUB75:A$=" CHRIST 
MAS EVE,FIVE SQUARED,":GOSUB75:M 
$=" UNLUCKY MINUS ONE":RETURN 

46) 3 GOSUB412 : G0T071 

461 A$="I DO NOT SEE A "+BB$+"." 
:G0SUB7 5:G0T07 2 

462 ' 

463 GOSUB541 


464 IF OB(Q)=L THEN 0B(Q)=-1:G0S 
UB11)3 : PLAYGT$ : A$=LO$ (Q) + " TAKEN. 
":G0SUB7 5:G0T07 2 

465 GOSUB544 

466 IF CG(J)=L THEN A$="SORRY, B 
UT YOU CAN'T TAKE THAT.":GOSUB75 
:GOTO72 

467 A$="I DON'T SEE A »+BB$+".": 
G0SUB7 5:G0T07 2 

468 IFL<>8 THEN537 

469 A$="THE DOOR SWINGS OPEN TO 
THE SOUTHI":G0SUB75:RE $(8)="0100 
":G0T072 

47)3 G0T0537 

471 ' 

472 IF(BB$="COMPUTER"ORBB$="COMP 
UTERS")ANDL=16 THENYY=999:A$="YO 
U TAP SOME KEYS AND, SUDDENLY, A 
":GOSUB75:A$="PRINTER SPURTS OUT 

A PIECE OF PAPER!":G0SUB75:OB(2 
)=16:G0T072 

473 IFBB$="WATCH"ANDL=9 THENA$=" 
A WALL OPENS TO THE NORTH.":GOSU 
B75:RE$(9)="1010":G0T072 

474 IFBB$="HATCH"ANDL=28 THENA$= 
"THE HATCH OPENS...":IFOB(6)=-l 
THENA$="THE UMBRELLA BREAKS YOUR 

FALL! " : G0SUB75 : L=3)3 : G0T068 ELSE 
IFBB$="HATCH"ANDL=28 THENA$="YOU 
FALL TO YOUR DEATH!":GOTO538 
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475 IFBB$="CAN"ANDOB(8)=-l ANDOB 
(5)=-l THENA$="THE SCUBASUIT IS 
NOW PROTECTED AGAINST ?":GOSUB75 
:SP=l:G0T072 

476 IFBB$="WRENCH"ANDOB( ip )=-l A 
NDL=3)3 ANDHU=)3 THENA$="THE HATCH 

UNBOLTS EASILY.":HU=1:G0T07 2 

477 IFBB$="GUN"THEN479 

478 G0T0537 

479 GOSUB539 

48) 3 PLAYFI$ 

481 IFPO=2 THEN GOSUB54)3 

482 IFL=25 THENA$="THE GLASS CAB 
INET SHATTERS.":GOSUB75:A$="A RE 
MOTE CONTROL DEVICE IS INSIDE.": 
GOSUB75:OB(11)=25:G0T072 

483 A$="YOU JUST SHOT A HOLE IN 
THE CEILING.":GOSUB75:G0T072 

484 GOTO484 

485 ' 

486 IFBB$="PEBBLES"AND0B(13)<>-1 
THENA$="THE PEBBLES FORM ONE LA 

RGE ROCK":GOSUB75:OB(14)=-l:GOTO 
72 

487 G0T0537 

488 ' 

489 IFBB$="CARPET"ANDL=11 ANDOB( 
11)=99 THENA$="A KEY IS HIDDEN U 
NDER THE CARPET.":GOSUB75:OB(12) 
=11:G0T072 ELSEIFBB$="CARPET"AND 
LollTHENA$="I SEE NO CARPET. ":G 
OSUB7 5:G0T07 2 

49) 3 IFBB$=" CABINET "ANDL=11THENA$ 
="AN ELEVATOR IS REVEALED TO THE 

NORTH!":GOSUB75:RE$(ll)="IIOO": 
CG(7)=11:G0T072 

491 IFBB$="LEVER"ANDL=28ANDOB(11 
)=-l AND OB(4)=13 THENA$="THE HE 
LICOPTER LIFTS AND TAKES OFF.":G 
OSUB75:L=29:G0T068 ELSEIFBB$="LE 
VER"ANDL=28 THENA$="YOU DID NOT 
DESTROY THE BASE!":GOSUB75:A$="T 
HE MISSION FAILS!":GOSUB75:EXEC4 
4539:END 

492 IF(BB$="BUTTONS"ORBB$="BUTTO 
N")ANDL=6THENGOSUB32 3:A$="THE EL 
EVATOR RISES.":GOSUB75:GOSUB32 7: 
L=26:GOTO72 ELSEIF(BB$="BUTTONS" 
ORBB$="BUTTON")ANDL=26 THENGOSUB 
323:A$="THE ELEVATOR DROPS.":GOS 
UB75:GOSUB327:L=6:GOTO72 

493 IFBB$="BUTTONS"ANDL=8 THENA$ 
="ENTER THE COMBINATION (XX-YY-Z 
Z)":GOSUB7 5:GOTO 7 2 

494 IFBB$="BUTTON"ANDL=29 ANDOB( 
11)=-1 THENYY=999:A$="THE BASE E 


XPLODES BELOW YOU! THE":GOSUB75: 
A$="MISSION IS A SUCCESS! CONGRA 
TULATIONS!!" : GOSUB75:PMODE3:GOTO 
547 

495 G0T0537 

496 ' 

497 IFBB$="DOOR"ANDDK=,0 THENA$=" 
THE DOOR IS LOCKED FROM THE OUTS 
IDE.":GOSUB75:G0T072 

498 IFBB$="DOOR"ANDDK=l THENA$=" 
IT'S ALREADY OPEN.":GOSUB75:GOTO 
72 

499 IFBB$="DESK"ANDOB(12)=-l THE 
NA$="THE DRAWER IS OPEN.":OB(3)= 
11:GOSUB75:A$="INSIDE THERE IS A 

DIGITAL WATCH.":GOSUB75:G0T072 
ELSEIFBB$="DESK"THENA$="IT 1 S LOC 
KED AND NEEDS A KEY.":GOSUB75:GO 
T072 

5)3)3 IFBB$="HATCH"ANDHU=)3 AND L=3 
)3 THENA$="THE HATCH IS TIGHTLY B 
OLTED.":GOSUB75:G0T072 ELSEIFBB$ 
="HATCH"ANDL=3)3 AND HO=)3 THENA$= 
"THE HATCH OPENS EASILY.":GOSUB7 
5:H0=1:G0T072 

5)31 IFBB$="HATCH"ANDL=28THENA$=" 
THE HATCH OPENS BENEATH YOUR FEE 
T.":GOSUB75:IFOB(6)=-1THENL=29:A 
$="THE UMBRELLA BREAKS YOUR FALL 
AND YOU":GOSUB75:A$="FLOAT TO T 
HE GROUND.":GOSUB75:G0T072 ELSE 
5)33 

5)32 G0T0537 

5)33 A$="YOU FALL TO YOUR DEATH!" 

:GOSUB7 5:G0T05 3 8 
5)34 1 

5)35 IFL=7 ANDBB$="POOL"THEN51)3 
5)36 IFBB$="HATCH"ANDL=8 THENL=3)3 
:G0T068 ELSEIFBB$="HATCH" ANDL=3 
0 ANDHO=l THENL=8:G0T068 
5)37 IFBB$="SURFACE" ANDL=3)3 THEN 
L=12:G0T068 

5)38 IFBB$="HELICOPTER"ANDL=27 TH 

ENL=28:G0T068 

5)39 G0T0512 

51 )3 IFOB(5) <>-lTHENA$="YOU CAN'T 
.. YOU'RE NOT DRESSED PROPERLY." 

:GOSUB7 5:GOTO 7 2 

511 L=3)3 : GOTO 6 8 

512 G0T0537 

513 ' 

514 IFL=22 ANDBB$="DOOR" ANDDK=)3 
THENDK=1:A$="THE DOOR IS OPEN T 

0 THE NORTH.":GOSUB516: COLOR1:PA 
INT(216,70),2,1:GOSUB7 5:RE $(2 2) = 
"IOOO":CG$(1)="A BROKEN DOOR":GO 
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T072 

515 G0T0537 

516 PM0DE3:C0L0R4:LINE(226,53)-( 
226,55),PSET:C0L0R1:LINE(200,30) 
-(214,37),PSET:LINE-(214,70),PSE 
T:LINE(214,61)-(230,61),PSET:LIN 
E (200,74)-(214,70),PSET:COLOR2,1 
:LINE(202,74)-(228,80),PSET,BF:C 
OLOR1: LINE (210,52 ) - (210,53 ) , PSET 
:PAINT(226,40),4,1:RETURN 

517 ' 

518 IFBB$="ROCK" ANDOB(14)=-l TH 
ENRE$(2)="OIII":G0SUB33 8:A$="THE 

'SHATTERPROOF' WINDOW SHATTERS! 
":G0SUB75:CG$(9)="A BROKEN WINDO 
W TO THE SOUTH":G0T072 

519 IF(BB$="EXPLOSIVES"ORBB$="EX 
PLOSIVE")ANDOB(4)=-l ANDL=13 THE 
NCOLORl:LINE(2 28,150)-(252,168) , 
PSET,BF:A$="THE EXPLOSIVES FLY 0 
UT AND DISAPPEAR":G0SUB75:A$="SO 
MEWHERE IN THE JUNGLE OF MISSILE 
S . ":G0SUB75:OB(4)=13:G0T072 

520 IF(BB$="EXPLOSIVES"ORBB$="EX 
PLOSIVE")ANDOB(4)=-l THENA$="I D 
ON'T RECOMMEND YOU PUT THEM HERE 
.":G0SUB7 5:G0T07 2 

521 GOTO537 

522 F$=RE$(L) 

523 IFVV$="N"THENF=1 

524 IFVV$="S"THENF=2 

525 IFVV$="E"THENF=3 

526 IFVV$="W"THENF=4 

527 ON F GOTO 528,530,532,534 

528 IFMID$(F$,1,1)="I" THEN L=L- 
5:G0T068 

529 GOTO53 6 

530 IFMID$(F$,2,1)="I" THEN L=L+ 
5:G0T068 

531 G0T0536 

532 IFMID$(F$,3,1)="I" THEN L=L+ 
1:G0T068 

533 G0T0536 

534 IFMID$(F$,4,1)="I" THEN L=L- 
1:G0T068 

535 G0T0536 

536 A$="YOU CAN'T GO THAT WAY.": 
G0SUB7 5:G0T07 2 

537 A$="TRYING TO »+VV$+" THE "+ 
BB$+" IS USELESS.":G0SUB75:G0T07 
2 

538 YY=999:A$="OOPS! YOU DIED. 
THE MISSION IS A":GOSUB75:A$="FA 
ILURE... WAVE GOODBYE TO EARTH!" 
:G0SUB75:A$ = "PRESS ANY KEY TO ST 
ART OVER":GOSUB75:EXEC4453 9:GOTO 


2 

539 POKE65494,0:RETURN 

540 POKE 65495,0:RETURN 

541 F0RQ=1T014 

542 IF BB$=OB$(Q) THEN RETURN 

543 NEXT:Q=0:RETURN 

544 F0RJ=1T02 

545 IF BB$=CG$(J) THEN RETURN 

546 NEXT:J=0:RETURN 

547 SCREEN1,1:POKE65314,248 

548 G0T0547 
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GHOST 

TOM'N 


Program by Michael Shay 


t was during the great gold rush of 1849 that 
thousands deserted their homes and families to 
venture out West with the greedy intention of 
striking it rich. Only a handful made the dream 
reality. But most ultimately drifted away, 
poorer than the day they heard the rumor of 
“gold in them thar hills.” Yeah, and my great 
grandfather, Dawson P. Dillard, just happened 
to be one of them. Fortunately, he survived the 
journey, but he sure as heck didn’t bring back 
any gold. The only thing he did bring back was 
a darn good story. It’s supposed to be a family 
secret, but since I’m not the Adventuring type, 
I’m going to let you in on it. 

Great Grandpappy, known as Alleycat to 
most, grew up in Nashville, Tennessee. He spent 
the biggest part of his younger days bunking in 
the saloons on Printers Alley. Since gambling 
was his primary source of income, he of ten went 
days without a decent meal. Just when Great 
Grandpappy was about to surrender his pre¬ 
carious ways and take a job with the rail- 
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road, the news of gold discoveries in the mountains out West made it back to 
Nashville. 

Well, Grandpappy figured he wasn’t going to get rich working f or the railroad, 
and since he had made up his mind to swing a pick and a hammer anyway, 
he thought he might as well do it searching for gold. So one night, after a 
drunken barhouse brawl, Great Grandpappy found himself a partner, and the 
two of them got on their horses, left Nashville and headed for California. 

It took the prospectors-to-be nearly six months to cross the vast prairies of 
the Midwest. When they reached the Amargosa Valley of Nevada, the two weary 
travelers boarded a room in the little town that had sprung up near the foot 
of the mining hills. Amargosa Valley certainly wasn’t the friendliest place they 
had ever visited. But what could be expected in a town full of thievish, cut¬ 
throat gold seekers. In fact, there were so many killings occurring over gold 
claims that the digger getting the richest was the undertaker, who kept busy 
burying the greedy stiffs. 

Regardless, the two Tennessee whippersnappers stuck it out and spent months 
mining those hills. And, just as frustration was about to get the best of them, 
they hit a pocket of gold that was certain to bring a couple of good-sized ingots. 
You can bet they knew that keeping their discovery to themselves was essential 
if they expected to get their fortune out of town. 

Nevertheless, that night, while celebrating at the poker table, some good old 
Kentucky straight whiskey got the best of them and they let the cat out of the 
bag. The minute the three gold-thieving thugs at the bar got wind of it, the 
two Tennessee wisenheimers were given an ultimatum to sacrifice their gold or 
their lives. If there was one thing Great Grandpappy loved more than gold, 
it was living. So he gave up his find. His partner, however, was a little more 
stubborn and a lot less cooperative. He claimed to have hidden his gold where 
it could never be found and vowed to never tell them or anyone where it was, 
no matter what they did to him. 

His bullheadedness didn’t pay off. The poor guy was buried in the cemetery 
of what is now nothing but a deserted ghost town. But he did keep his promise, 
and no one ever found his gold. 

Of course there’s nothing stopping you from trying, my friend — if you think 
you’re game enough. You’ll have to travel through the desert to reach Amargosa 
Valley, but I know how you like a good Adventure. I wouldn’t get your hopes 
up though. Sure, you will probably be able to find the ghost town easy enough, 
but finding the gold and staying alive . . . there’s the rub. 


50 






As in most Adventures, if you LOOK at everything, you will gather various 
clues and treasures en route to the gold. You must drink occasionally or you 
will die of thirst. And, the more inventory you carry, the quicker you will need 
water, so travel light. 

To travel through Ghost Town, use the single-key directional commands of 
N (North), 5 (South), E (East), W (West), U (Up) and D (Down). Two-word 
commands are also accepted and may be abbreviated by using only the first 
three letters of the verb and noun. For example, either OPEN DOOR or OPE DDO 
may be used. And, to free your mind for solving the Adventure, a verb list will 
be displayed each time an incorrect verb is entered. 

Ghost Town can be solved in as few as 31 moves or you can wander for 
hundreds of moves and find all sorts of fun things. The number of moves made 
is displayed on the screen at all times. There are many ways to die, however, 
so try to keep your sense of humor. 

Note: 16K users must type P0KE25,G:NEW before loading the Adventure. 

Hints 

Read the instruction again, a clue lurks within. 

The skeleton can help in two ways; make no bones about it. 

There’s lots of good reading in the cemetary, but a bad place to end up. 


Mike Shay is a factory worker who is learning BASIC with his three children 
by creating game programs. Questions or comments may be directed to 
Mike at 337 South Sixth Street, Lebanon, PA 17042. Please enclose an 
SASE when requesting a reply. 
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"" |gHOSTOWN 16KECB 

1 'GHOST TOWN BY MIKE SHAY 

2 'FEBRUARY 85 FOR RAINBOW 

3 'ADVENTURE CONTEST 

4 ' 

1J3 G$="ghost"+CHR$ (12 8) +"town" : F 
ORQ=lTOLEN(G$):H$=H$+MID$(G$, Q, 1 
)+CHR$(128):NEXT:Z$=H$:M=1 
2J3 DIML$(25),G$(25),I$(7):L=1:Y$ 
="BAGFEDC":PF$="A MIRROR COVERS 
THE NORTH WALL 

3J3 DATA SALOON, HOTEL, BANK, STAGE 
DEPOT,GENERAL STORE,CEMETERY 
4J2J DATA "A SIGN HANGS OVER A SMA 
LL BAR"," A DOOR IS IN THE NORTH 
WALL STAIRS LEAD UP",THE NO 

RTH WALL IS A HUGE SAFE A DESK 
IS IN THE CORNER 
5J3 DATA A SAFE IS AT THE NORTH W 
ALL,MOLDY FOOD IS ON THE SHELVES 
A DOOR IS IN THE NORTH WALL 
6J3 DATA "TOMBSTONES ARE EVERYWHE 
RE. THEREARE 5 WITH READABLE INS 
CRIPTIONS(SAY'LOOK l',ETC.)» 

7J3 FORJ=11T02 2 : READL$ (J) : NEXT: UU 
$="THE OPENING MAGICALLY SEALS U 
P WHEN YOU GO THROUGH! 

8J3 M$="MOVE ": MF$="THE COIN VAPOR 
IZES, AND YOU ARE MAGICALLY TELE 
PORTED TO. . . " : G0T011J3 
9J3 F0RD=1T05 : PLAY"T5J302C#A#" : NEX 
T:RETURN 

1J3J3 PLAY"T7J305XY$ ;04XY$ ;03XY$ ;02 
XY$;T2":RETURN 

11J3 A $=" L2 0 3 ELI 6 ABBB ABBBL2 AL4 E " : 
B$="P4L2FL803DDDD#L204C#C" 

12J3 0K$="0 K A Y" : 0$="SKEKNICANC 
ACWATSAFBARCOIGALBOTWALFLOSIGDOO 
12345 MIRKEYROPHOLTOMJE 
ETREDES" 

13j3 W$=" LOOGETOPEMOVRUBKICDRICUT 
FILDROBRE":P$=" ONE BONEY FINGER 
POINTS EAST":U$="YOU ARE IN A S 
MALL ROOM WITH AN OPENING TO THE 

m 

14j3 E$="THE BONES CRUMBLE TO DUS 
T. THEY WERE HIDING A KNIFE! 

15j3 TH$=" YOUR THIRSTY TONGUE HA 

5 SWELLED TO THE SIZE AND TEXTUR 
E OF A TENNIS BALL. YOU ARE D 

E A D! 

16J3 CLS (RND (9) -1) : PRINT03 2 , "WHEN 
YOUR BURRO DIED THE FOURTH DAY 
IN THE DESERT, YOU KNEW YOU WERE 
IN TROUBLE. 


17J3 PLAYA$ : PRINT 016J3 , " IF YOU DON 
'T FIND THE LEGENDARY LOST GOLD 
MINE, OR A COLD DRINK SOON, YOUR 
TREASURE HUNTING DAYSARE OVER. 
(SOME MUSIC, HUH?) 

18/3 PLAYB$ : F0RDE=1T0555 : NEXT: PRI 
NT032J3, "USE 1 LETTER TO MOVE [N, 
E,S,W] AND 2-WORD COMMANDS, LIK 
E 'LOOK DOOR', TO MAKE THINGS HA 
PPEN 

19/3 PRINT0448, ; :INPUT"PUSH ENT 

ER TO PUSH ON";I:CLS 

2/3/3 G$ (1) ="A HUMAN SKELETON" : G$ ( 

7)="A LARGE CACTUS":G$(3)="A CAN 

TEEN" : L$ (1/3) ="DECREPIT TRAIN STA 

TION 

21/3 DR$="IT VANISHES WHEN YOU LE 
T IT GO!":G$(14)="A WATER BARREL 
":G$(23)="A RING OF KEYS 
22/3 PRINTM$;M: PRINT"YOU ARE LOST 
IN THE DESERT. YOU CAN GO: N S 
E W 

23/3 GOSUB125J3 

24/3 IFC$="W"THENL=L-1ELSEIFC$="E 
"THENL=L+1 

25/3 IFL<10RC$ = "N"0RC$="S"THENL=J3 
26/3 IFKF=J3ANDL=1ANDP=1THENIFQ=1T 
HENPRINTP$ELSEIFQ=40RQ=20RQ=6THE 
NPRINTE$:G$(1)="A KNIFE":P$="":K 
F=2 : GOSUB9J3 
27/3 IFL<5THEN22J3 
3/3/3 PRINTM$ ; M: PRINT" YOU ' RE ON A 
GROWN-OVER RAILROAD TRACK, WHICH 
RUNS NORTH-SOUTH":IFL=5THENPRIN 
T" SOUTH IS A WASHED-OUT TRESTLE 
31/3 GOSUB125J3 : IFLEN (C$) >1THEN3 6/3 
32/3 IFC$="W"THENL=4 : G0T022j3ELSEI 
FC$="E"THEN1J3J3J3 

33/3 IFC$="S"THENL=L-1: IFL=4THENP 
RINT" YOU FALL FROM THE TRESTLE 
AND BREAK YOURSELF TO DEATH!":G 
0T0184J3 

34/3 IFC$="N"THENL=L+1: IFL>9THEN4 

w 

35/3 WF=J3: G0T03J3J3 

36/3 IFL=7ANDP=4THENIFQ=1THENPRIN 
T" IT LOOKS WET!"ELSEIFQ=8ANDKF= 
lTHENWF=l:GOSUB9j3: PRINT" WATER S 
TREAMS FROM THE CUT! 

37/3 IFL=7ANDQ=9ANDWF=1ANDP=3THEN 
IFCF=2THENPRINTOK$ : CF=1: WF=J3ELSE 
IFCF=1THENPRINT"IT'S FULL 
38/3 IFWF=1ANDQ<70RQ>9THENWF=J3 
39/3 G0T03J3J3 

4/3/3 PRINTM$ ;M: PRINT"LOCATION: DEC 
REPIT RAIL TERMINAL 
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41J3 PRINT" GO NORTH TO ENTER THE 
STATION. WEST IS THE DESERT. 
EAST IS A G-G-G "Z$: GOSUB125J3 
42J3 IFC$="N"THEN43J3ELSEIFC$="W"T 
HEN1J3J3J3ELSEIFC$="S"THENL=9 : G0T03 
J3J3ELSEIFC$="E"THENL=11: G0T047J3EL 
SE4J3J3 

43j3 PRINTM$;M: PRINT"YOU ARE IN A 
ONE-ROOM DEPOT":IFMF=2THENPRINT 
"A COIN IS AT YOUR FEET! 

44J3 PRINT" EXIT IS SOUTH": GOSUB1 

25J3 : IFC$="S"THEN4J3J3 

45j3 IFQ=lANDMF=j3ANDP=12THENMF=2 : 

GOSUB9J3 

46j3 GOTO 4 3 J3 

47 0 PRINT"THIS IS A "Z$: PRINT" W 
HICH RUNS EAST-WEST ALONG THE BA 
SE OF A MOUNTAIN TO THE NORTH. S 
OUTH IS THE DESERT. 

500 PRINTM$;M: PRINT" YOU'RE ON A 
N EAST-WEST ROAD":PRINT"NORTH IS 
A ";L$(L):IFL=16THENPRINT"EAST 
IS A DEADLY WASTELAND 
51J3 PRINT"SOUTH IS A ";:IFL=120R 
L=15THENPRINT"COOL LAKE"ELSEIFL= 
16THENPRINT"GALLOWS"ELSEPRINT"BA 
RREN DESERT 

52j3 GOSUB125J3 : IFLEN (C$) >1THEN56J3 
ELSEIFC$="N"THENL=L+6: G0T06J3J3 
53J3 IFC$="S"THENIF(L=120RL=15)TH 
ENPRINT"IT WAS A MIRAGE!":G0T01J3 
00E"LSE1000 

54j3 IFC$="E"THENL=L+1 

55J3 IFC$="W"THENL=L-1: IFL<11THEN 

4J3J3 

56j3 IFP=9ANDL=16ANDQ=1THENPRINT" 
A SIGN SAYS, 'HERE'S WHERE GOLD 
SEEKERS HANG OUT' 

57J3 IFL>16THEN1J3J3J3ELSE5J3J3 
600 PRINTM$;M: PRINT"YOU ARE IN A 
"L$(L-6) :PRINTL$(L) 

61j3 IFL=17THENPRINTPF$ELSEIFL=19 
THENPRINTBH$ 

62J3 PRINT "SOUTH IS THE STREET" :G 
OSUB125J3 

63 0 IFLEN(C$) >1THEN69J3 
64j3 IFC$="S"THENL=L-6:G0T05j3j3 
65j3 IFC$="N"ANDPF=1ANDL=17THEN15 
6J3 

66J3 IFD0=1ANDL=21ANDC$="N"THEN15 
70 

670 IFC$="D"THENIF(BH=1ANDL=19)O 
R (L= 2 2 ANDCH= 1) THEN 15 3 J3 
IFC$ = "U"THEN119j3 
69j3 IFQ01THEN73J3ELSEIFL017THEN 
75j3 


700 IFBF=j3ANDP=7THENPRINT"A DUST 
Y BOTTLE SITS ON IT":G$(17)="A B 
OTTLE 

71J3 IFP=2j3ANDPF=j3THENPRINT"IT' S 
CRACKED. SOMEBODY WROTE ON IT,'Y 
OU GOTTA BE CRACKED TO WORK HERE 

i 

720 IFP=13THENPRINT" IT SAYS,'IF 
YOU CAN READ THISH, YOU NEED AN 
OTHER DRINK' 

73J3 IFL=180RL=19THENDF=1ELSEDF=J3 
74j3 IFQ=llANDP=2j3ANDPF=j3THENPF=l 
:PRINT"THE MIRROR SHATTERS, REVE 
ALING A HIDDEN PASSAGE!": GOSUB9J3 
:PF$="A PASSAGE LEADS NORTH 




75j3 IFDF=1AND(Q=30RQ=11) AND(P=60 
RP=14)THENPRINT"IT'S LOCKED AND 
UNBREAKABLE 

760 IFP=6ANDL=2J3ANDXF=J3AND(Q=30R 
Q=11)THENPRINT"IT CRUMBLES TO DU 
ST REVEALING ANOLD MINE SHAFT... 
BUT NO GOLD! " : XF=1 :G0SUB9J3 : L$ (2J3 
)="AN EMPTY MINE SHAFT IS IN THE 
NORTH WALL 

770 IFL=19ANDQ>1ANDQ<7ANDP=27THE 
NGOSUB9J3: PRINT" WHEN YOU TOUCH 
IT, IT MOVES, " ; : IFBH=J3THENPRIN 
T"REVEALING A HOLE!":BH$="THE SM 
ELL OF ROTTING FLESH RISES FROM 
A STAIRWELL! " : BH=1ELSEBH=J3 : BH$=" 
PRINT"COVERING THE HOLE 
780 IFL=21ANDQ=3ANDP=14ANDDO=j3TH 
ENDO=l:PRINTOK$:GOSUB9 0: L$(21)=L 
$(21)+". THE DOOR IS OPEN 
79J3 IFQ01THEN86J3 
800 IFL022THEN87J3 
810 IFP=15THENPRINT"IT SAYS,'PEO 
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PLE ARE DYING TO GET IN H 
ERE' 

82J3 IFP=16THENPRINT"THIS HEADSTO 
NE HAS A DOORKNOB ONITi IT SAYS 
, 'HERE LIES A DOORKNOB SALESMA 
N. HE TURNED THE WRONG DOORKN 
OB ONE NIGHT!' 

83J3 IFP=17THENPRINT"'ATOMIC WEIG 
HT 196.967'":PRINT"'ALL GOLD HUN 
TERS GO TO HEAVEN' 

84J3 IFP=18THENPRINT"INSCRIPTION: 
'WHO SAYS YOU CAN'T TAKE IT WITH 
YOU?'":IFL< > 2 2 THENRETURN 
85J3 IFP=19THENPRINT" ' IN MEMORY O 
F THE LOST GOLD MINE WHICH WAS B 
URIED FOREVER IN A CAVE-IN. TH 
E LAST TONS OF ORE MINED BEFOR 
E THE CAVE-IN WERE REFINED INT 
0 A SINGLE 2J3J3 POUND INGOT, WHIC 
H WAS LOST AND NEVER RECOVERED' 
86J3 IFQ=4ANDP>14ANDP<2J3THENG0SUB 
9J3 : IFCH=J3THENG$ (22) ="A HOLE IN T 
HE GROUND":PRINT"A HIDDEN DOOR S 
LIDES OPEN!":PRINT"REVEALING A H 
OLE IN THE GROUND!":CH=1ELSEG$(2 
2) =" " : CH=j3: PRINT"THE DOOR SLAMS 
SHUT! 

87J3 G0T06J3J3 

88J3 IFKF=1ANDP=2THENPRINT" LOOKS 
OLD, BUT SHARP"ELSEIFP=26ANDL=5 
THENPRINT"LOOKS TOO RICKETY TO C 
ROSS 

89J3 IFTF=1ANDP=24THENP=18: G0T084 

J3 

9J3J3 I FCF>J3ANDP=3 THENPRINT" 3 CON 
CENTRIC CIRCLES ON SIDES":IFCF=2 
THENPRINT" IT'S EMPTY"ELSEPRINT 
» IT'S FULL 

91J3 IFP=11ANDL>9THENPRINT" A SIG 
N SAYS, 'DEAD MEN KNOW THE SECRE 
T OF THE LOST GOLD MINE... DEAD 
MEN TELL NO TALES' 

9 2J3 IFP=12ANDL> 16THENPRINT" LOOKS 
READY TO CAVE IN 
93J3 IFL>9ANDP=14THENPRINT"A SIGN 
SAYS,'GHOSTS PUT SIGNS INTHE DA 
RNDEST PLACES' 

94J3 IFP=1)3ANDBF=1THENPRINT" IT ' S 
HALF FULL. THE LABLE SAYS, 'INSE 
CTICIDE; DRINK ME AND YOUR TROUB 
LES ARE OVER' 

95J3 IFP=8ANDMF=1THENPRINT"IT' S M 
ARKED, 'GOOD FOR 1 MIRACLE "'ELSEI 
FP=2 2ANDRF=1THENPRINT"A TAG SAYS 
,'NO NOOSE TODAY' 

96J3 IFL=14ANDP=7THENPRINT"A SIGN 


ON IT SAYS,PRINT"I KILL OPTIM 
ISTS":PRINT"I LIKE PESSIMISTS":P 
RINT"I'M HALF ";:IFM/2=INT(M/2)T 
HENPRINT"E MPT Y"ELSEPRINT"F U 
L L 

97J3 IFP=21ANDJF=1THENPRINT"THEY' 
RE MARKED 'A M C' 

98J3 IFP=23THENPRINT"D ARK! !" 
ELSEIFP=6THENIFL=19THENPRINT"THE 
DOOR IS RUSTED SHUT"ELSEIFXF=0T 
HENPRINT"IT'S CRACKED 
99 J3 RETURN'LOOK 

1J3J3J3 Q=RND (6) : PLAY"0-" : GOSUB9J3: P 
LAY"0+" : GOSUB9J3 : PLAY"0+" : GOSUB9j3 
IGOSUBW DEATH 

1J31J3 IFLOl6ANDCF>j3THENPRINT" A 
GHOSTLY VOICE YELLS, 'TARGET PRA 
CTICE!' , AND AN ARROW PIERCESYOU 
R CANTEEN...YOU ARE DEAD!!":END 
1J32J3 IFL=16THENPRINT"GHOSTLY HAN 
DS GRAB YOU AND DRAG YOU TO THE 

GALLOWS.AS YOUR SPIRIT JOIN 

S THE DEAD, YOUR BODYSTIFFENS IN 
DEATH, AND A SINGLE FINGER POIN 
TS EAST!":END 

1J33J3 IFQ=1 THENPRINT"A PENCIL SN 
AKE SPRINGS FROM THE SAND, AND D 
OTS YOUR EYE.... YOU ARE D E A 
D ! !":END 

1J34J3 IFQ=2 THENPRINT" FROM OUT 
OF NOWHERE DOZENS OF GREMLINS LE 
AP UPON YOUR BODY ANDEAT YOUR FA 
CE OFF. YES, YOU ARED E A D!":E 
ND 

1J35J3 IFQ=30RQ=5THENPRINT" A RAGI 
NG SAND STORM RISES FROM NOWHERE 
! WHEN IT CLEARS, YOU FIND... 
" : L=6 : G0T03J3J3 

1J36J3 IFQ=4THENPRINT" SEE THOSE 
TWO LITTLE HOLES IN YOUR ANKLE? 
YEP. RATTLESNAKE. BELIEVE IN 
REINCARNATION?":END 
1J37J3 PRINT" SEVERAL SLICK SCORP 
IONS SLING STINGERS, STABBING SE 
NSITIVE SPOTS, SERIOUSLY SHOR 

TENING SEEKERS SURVIVAL. SOR 

RY, SIR. SAYONARA!":END 
11J3J3 IFP=2ANDKF=1THENI$ (1) =" " : KF 
=j3:P=1 

111J3 IFP=3ANDCF>J3THENI$ (2) ="" : CF 
=p :P=1 

112j3 IFP=8ANDMF=1THENI$ (3 ) = " " : MF 
=j3: P=1 

113J3 IFP=1)3ANDBF=1THENI$ (4) ="" : P 
=1:BF=-1 

114J3 IFP=21ANDJF>J3THENI$ (5) ="" : P 


54 





=1:JF=-1 

1150 IF(P=180RP=24)ANDTF=1THENI$ 

(6)..P=1:AU=0:TF=-1 

1160 IFRF=1ANDP=22THENP=1:1$(7)= 

.. 

1170 IFP=1THENP=0:PRINTDR$:GOSUB 
100:WT=WT-1 
1180 RETURN 

1190 IFL<>18THENPRINT"CAN'T GO U 
P HERE":GOTO600 1 UPSTAIRSSTUFF 
1200 DF=0:PRINTM$;M:PRINT"IT'S S 
POOKY UP HERE. YOU SHOULD GO DOW 
N! 

1210 IFDF=0THENPRINT"YOU 1 RE ON A 
LANDING WITH AN OPENDOOR TO THE 
NORTH. 

1220 IFDF=1THENGOSUB90:PRINTM$;M 
:PRINT"YOU 1 RE IN A LOCKED, WINDO 
WLESS ROOM. YOU HEAR LAUGHTER!" 
:IFRF=0THENPRINT"A ROPE HANGS FR 
OM THE CEILING 

1230 GOSUB1250:IFDF=0THENIFC$="D 
"THEN600ELSEIFC$="N"THENDF=1:PRI 
NT"THE DOOR SLAMS BEHIND YOU! 
1240 GOTO1210 

1250 M=M+1:Q=0:P=0:TH=TH+.8+(WT/ 
3):IFTH>20THENPRINTTH$:GOTO1840 
1260 V=INT(TH):IFV/3=INT(V/3)AND 
V> 0ORV>14 THENPRINT:PRINT"YOU 1 RE 
SLOWLY DYING OF THIRST! 

1270 IFG$(L)<>""THENPRINT"NEARBY 
: ";G$(L) 

1280 PRINT:INPUT" COMMAND";C$:PR 

INTSTRING$(31,.) 

1290 IFC$="I"THENPRINT"INVENTORY 
:" ;:F0RX=1T07:IFI$(X)<>""THENPRI 
NTI$(X):NEXTELSENEXT:IFWT=0THENP 
RINT"NOTHING AT ALL 
1300 IFLEN(C$)<2THENRETURN 



1310 FORS=LEN(C$)T01STEP-1:IFMID 
$(C$,S,1)=" "THENN$=RIGHT$(C$,(L 
EN(C$)-S))ELSENEXT:PRINT"2-WORD 
COMMANDS EXCEPT U (UP), I (INVE 
NTORY), N,S,E,W, D (DOWN)":RETUR 
N 

1320 C$=LEFT$(C$,3):IFC$="REA"TH 
ENC$="LOO" 

1330 N$=LEFT$(N$,3):Q=INSTR(W$,C 
$ ) : Q= (Q+2) / 3: IFQoINT (Q) THENPRIN 
T"HAH? THIS GAME (SOMETIMES) USE 
S THESE VERBS: BREAK, CUT, DRINK 
, DRIVE, DROP, FILL, GET, KICK, 
LOOK, MOVE, OPEN, POUR, RUB 
only need first three letter 
s 

1340 P=INSTR(0$,N$):P=(P+2)/3 
1350 IFQ=1THENGOSUB880ELSEIFQ=8A 
NDKFolTHENPRINT"YOU HAVE NO KNI 
FE 

1360 IFQ<>2THEN1440ELSEIFL=1ANDP 
=2ANDKF=2THENG$(1)="":KF=1:Q=-1: 
1$(1)="A KNIFE 

1370 IFL=3ANDCF=0ANDP=3THENG$(3) 
=" ":Q=-l:CF=2:1$(2)="A CANTEEN 
1380 IFL=10ANDP=8ANDMF=2THENMF=1 
:Q=-1:I$(3)="A COIN 
1390 IFL=17ANDBF=0ANDP=10THENQ=- 
1:BF=1:1$(4)=G$(17):G$(17)=»" 
1400 IFJF=0ANDL= 2 3 ANDP=21THENQ=- 
1:G$(23)="":JF=1:I$(5)="RING OF 
KEYS 

1410 IFTF=0ANDL=22ANDP>14ANDP<20 
THENPRINT"GRUNT!!":IFP=18THENTF= 
1:1$(6)="TOMBSTONE":Q=-l:WT=WT+1 
ELSEIFP>14ANDP<20THENPRINT"THIS 
ONE'S TOO HEAVY TO LIFT, BUT I 
T MOVES!":Q=4:GOTO860 
1420 IFP=22ANDL=18ANDDF=1ANDRF=0 
THENQ=-1:RF=1:1$(7)="A COIL OF R 
OPE 

1430 IFQ=-1THENPRINT0K$:GOSUB90: 
WT=WT+1 

1440 IFQ=5ANDP=8ANDMF=1THENPRINT 

...-1:TH=TH- 

10:GOSUB90:L=10:GOTO 430 
1450 IFQ=5AND(P=180RP=24)ANDTF=1 
THENPRINT"IT POLISHES UP AS ONLY 
GOLD CAN!IT'S THE LOST INGOT!": 
AU=1:1$(6)="GOLD "+I$(6):GOSUB90 
:PRINT"NOW YOU MUST GET IT HOME! 

i 

1460 IFQO7THEN1500ELSEIFCFO1AN 
DWF=0ANDBF=0ANDL<>14ANDL<>24THEN 
PRINT"NOTHING HERE TO DRINK 
1470 IFL=14ANDP=5THENIF(M+41)/2= 
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INT((M+41)/2)THENWF=1ELSEPRINT" 
THE POISONED WATER KILLS YOU!!!" 

: G0T0184 0 

1480 IFP=30RP=5THENIFCF=10RWF=1T 
HENPRINTOK$:WF=0:TH=-40:IFCF=1TH 
ENCF=2 

1490 IFP=10ANDBF=1THENPRINT:PRIN 

T"YOUR TROUBLES ARE OVER-":GOS 

UB100:PRINT" THE INSECTICIDE YO 
U JUST DRANK HAS EATEN YOUR THRO 
AT OUT":END 

1500 IFL=14ANDQ=9ANDP=3THENIFCF= 
2THENPRINTOK$:CF=1ELSEIFCF=1THEN 
PRINT"IT'S FULL 

1510 IFQ=10THENGOSUB1100ELSEIFQ= 
6THENPRINT"OWWW! THAT HURT!":Q=4 
1520 RETURN 

1530 SL=L:L=0:IFNF=0THENPRINT"IT 
'S DARK AS A TOMB DOWN HERE! YO 
U FEEL THOUSANDS OF BUGS CR 
AWLING ON YOUR BODY! YOU CAN'TMO 
VE YOUR LEGS!":G0T01630 
1540 PRINT"A LOW TUNNEL LEADS NO 
RTH. STAIRS LEAD UP":GOSUB1250 
1550 IFC$="U"THENL=SL:GOTO600ELS 
EIFC$o"N"THEN1540 
1560 L=23:PRINTM$;M:PRINT"THE TU 
NNEL DEAD-ENDS IN A SMALL ROOM. 
EXIT IS SOUTH":GOTO1580 
1570 L=24:PRINTM$;M:PRINT"YOU'RE 
IN A NEWLY BUILT GARAGE! A 1984 
JEEP WAGONEER IS HERE! 

1580 GOSUB1250 

1590 IFP=25ANDQ=7ANDL=24THENIFJF 
=0THENPRINT"YOU HAVE NO KEYS"ELS 
ECLS:PRINT"YOU DRIVE TO SAFETY W 
ITH A NEW JEEP ";:IFAU=1THENPRI 
NT"AND A SOLID ";I$(6)J"! YOU H 
AVE WON IN"M-l"MOVES":GOTO1790EL 
SEPRINT"BUT NO GOLD. BETTER LU 
CK NEXT TIME!!":END 
1600 IFC$="S"THENIFL=24THENL=21: 
GOTO600ELSEIFL=23THENL=17:IFPF=1 
THEN600ELSEIFBH=1THENL=19:G0T015 


40ELSECH=1:L=22:G0T0154 0 
1610 IFC$="S"THENL=22:GOTO1540 
1620 IFL=23THEN1560ELSE1570 
1630 K=0:PRINT"YOU HAVE ABOUT 30 
SECONDS TO ACTBEFORE THE BUGS D 
RAIN YOUR BODY! 

1640 K$=INKEY$:IFK$=""THENK=K+1 
1650 IFK=600THENCLS:PRINT"TOO LA 
TE! WITHOUT INSECTICIDE TOSAVE Y 
OU, THE BUGS QUICKLY DRAINYOUR B 
LOOD. YOU'RE DEAD!!":GOTO1840 
1660 IFK$oCHR$ (13) THENJ$=J$+K$ : 
PRINT0449,J$:GOTO1640ELSEIFJ$="P 
OU BOT"ORJ$="POUR BOTTLE"OR J$=" 
POUR INSECTICIDE"ORJ$="POU INS"T 
HENIFBF=1THENPRINT"IT WORKED! TH 
E BUGS ARE DEAD!":NF=1:GOSUB90:I 

$(4) PRINT"THE BOTTLE VANISHE 

S!":BF=2:WT=WT-1:GOTO1700 

1670 ..GOTO1640 

1700 PRINTM$;M:PRINTU$;"NORTH":G 

OSUB1250: IFC$o"N"THEN1700 

1710 PRINTUU$:GOSUB90 

1720 PRINTM$;M:PRINTU$;"EAST":GO 

SUB1250: IFC$o"E"THEN1720 

1730 PRINTUU$:GOSUB90 

1740 PRINTM$;M:PRINTU$;"SOUTH":G 

OSUB1250: IFC$O"S"THEN1740 

1750 PRINTUU$:GOSUB90 

1760 PRINTM$;M:PRINTU$;"WEST":GO 

SUB1250: IFC$o"W"THEN1760 

1770 PRINTUU$:GOSUB90:KK=RND(6) : 

IFKK/2=INT(KK)/2 THENTH=TH+1 

1780 ON KK GOTO1700,1720,1560,17 

40,1760,1560 

1790 IFAU=1THENF0RX=1T015:R=RND( 
10)+4:R=R* 3 2:R=R+RND(10) :PRINT0R 
,G$:PLAY"T32XY$;":PRINT0R,»»:NEX 
T:K=218 

1800 W=l:FORQ=(K)TO(K-25)STEP-1 
1810 PRINT0Q,LEFT$(G$,(W)) 

1820 PLAY"T22505F#":W=W+1:NEXT 
1830 K=K+70:IFK<429THEN1800 
1840 GOSUB90:GOSUB100:END 
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Program by Fred D. Provoncha 


he year is 2155. And, to a ghost from the past, 
it would appear as though the quality of life has 
been greatly improved. There has not been a 
war of any kind for over a century. Scientific 
technology is responsible for the discovery of 
food supplements, putting an end to starvation. 
Medical advances have extended the average 
life expectancy to 100 years or more. 

It all seems fantastic, except for one major 
problem. There are far too many people living 
on Earth. Extreme overpopulation threatens 
the existence of the entire human race. For 
years, intense space exploration has been 
dedicated to one major objective — locating 
naturally inhabitable planets. 

Finally, the scientific study and investigation 
of one planet is officially conclusive. Aandark, 
the latest and most promising planet discov¬ 
ered, is capable of sustaining the life of earth¬ 
lings. A moonstar that continuously revolves 
around it provides 14 hours of daylight and 14 
hours of darkness at any point on the sphere. 
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The climate remains consistent, with daytime temperatures peaking around 90 
degrees Fahrenheit, while nighttime lows approach 40 degrees Fahrenheit. 

Dense plant life exists in the large mountainous forests which make up at 
least 65 percent of the planet. The land regions are divided by a number of 
rivers, which constitute the remainder of the planet. Aquatic life is also known 
to exist and the water has been approved for human consumption. 

As part of the exploratory mission, you are one of eight American astronauts 
on the spacecraft, ISOUP. The crew’s objective is to survey and map areas of 
the new world for potential colonization. Completion of the task is essential. 

Scouting and construction squads have previously prepared areas of the 
planet for the mapping expedition and each area has been subdivided into 
quadrants. Bridges have been built for easy access across the rivers, and outposts 
have been erected every few miles. 

All crew members will be shuttled in individual spacecrafts to their 
respectively assigned quadrants on the surface of the planet. Each will make 
a landing at the base that has been erected in the general vicinity of their 
quadrant. Once there, needed supplies and final briefings will be received. 

You have been assigned to map Quadrant 23A. The journey through the 
vastness will not be easy. It is known that there are wild animals, large pits 
filled with quicksand and sludgy swamps that will hinder your travel. Other 
suspected decoys may also be encountered that could lead you off track. 

Remember though, if you are capable of returning to the base, your success 
will be judged on how complete your map is. 

Aandark is a text Adventure that includes a built-in graphics map. By typing 
LOOK MAP, you are able to view the entire region, showing where you have 
traveled and where you can proceed. 

I 

Pressing any key returns to game play. 



60 





The Adventure accepts the standard two-word commands (a verb followed 
by a noun) and the following verbs may be used: 


CRLL FOR HELP 

GET 

SHOOT 

CLIMB 

INV 

THROW 

DROP 

LOOK 

TURN ON 

ERT 




and GO, which must be followed by an abbreviated direction of N, S, E or W 
(e.g., GO N). 

Note: If your computer has a disk drive attached, you should unplug the disk 
controller in order to prevent an OM Error during game play. However, the 
Adventure will run from disk if the program is broken into three parts. 

To do so, first load "RRNDRRK" and then enter the following commands and 
program lines: 

SfiVE "fififi/BRS" 

DEL 510- 
510 RUN"RDI<1" 

5RVE"RRNDRRI<" 

LORD "RRR'BRS" 

DEL-510 

DEL 27B0-3000 

27B0 RUN"RDI<2" 

5RVE "RDK1" 

LORD "RRR/BR5" 

DEL-2770 
DEL 3010- 
5RVE "RDK2" 

After doing so, your disk will contain the files RRR/BRS, RRNDRRK/BR5, RDKl/ 
BR5 and RDK2/BRS. To run the programs from disk, simply type RUN"RRNDRRK" 
and the programs will be executed one at a time. 

The mysterious land of Aandark awaits you! 


Fred Provoncha is a 15-year-old sophomore at Lynbrook High School in 
Lynbrook, New York. He is a self-taught programmer and his hobbies are 
computer programming, stamp and coin collecting, and reading. Questions 
or comments may be addressed to Fred at 259 Forest Avenue, Lynbrook, 
NY 11563. Please include an SASE when requesting a reply. 
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AANDARK 32K ECB 


lpp CLEAR15pp:DIMA(5,5) 

lip PM0DE4,1:SCREEN1,1:PM0DE3,1: 

PCLS:C0L0R2,1 

12p LINE(12,48)-(28,2p),PSET 
13p LINE-(44,48),PSET 
14p LINE(2p,36)-(36,36),PSET 
15p GET(12,2p)-(44,48), A 
16p PUT(52,2p)-(84,48), A 
17p LINE(92,48)-(92,2p),PSET 
18p LINE-(116,48),PSET:LINE-(116 
,2p),PSET 

19p CIRCLE(128,34),16,,1,.75,.25 

2pp LINE(128,p)-(128,52),PRESET 

21p DRAW"BM128, 48 ? L4U28R4 

22p PUT(148,2p)-(18p,48), A 

23p DRAW"BM188,48 ?U28R12F4D8G4L1 

2R8F12 

24p DRAW"BM216 / 2p?D28U12E16G12Fl 
6 

25p DRAW"BM12,76 ? C3S3U12R6F2D4G2 
L6R6F2D4G2L6 

26p DRAW"BM24,68F6E6G6D6 
27p DRAW"BM52,76U16R8L8D8R4 
28p DRAW"BM+12,+8 ?U16R7F3D5G3L7R 
2F7 

29p DRAW"BM+16,PL8U8R4L4U8R8 
3pp DRAW"BM+8,+16?U16R8F3D11G3L8 
31p DRAW"BM+3p,p ?U16R8F3D11G3L8 
32p DRAW"BM+16,p?R2U2L2D2 
33p DRAW"BM+2p,p?U16R7F4D5G3L7 
34p DRAW"BM+16, + 6 ?U16R7F3D5G3L7R 
2F7 

35p DRAW M BM+8,p?U16RlpD16Llp 

3 6p DRAW"BM+18,-16 ? D12F6E6U12 
37p DRAW M BM+8,+16?U16R8D16L8 
38p DRAW"BM+16,p?U16FlpD7U16 
39p DRAW"BM+18,pLlpD16Rlp 
4PP DRAW"BM+8,p ?U16D8RlpU8D16 

4ip DRAW"BM+8,p ?U12E6F6D6L8R8D7 
42p LINE(8,56)-(248,56),PSET 
43p LINE(8,84)-(248,84),PSET 
44p FORX=1T05p:H=RND(255):V=RND( 
lpp)+88:PSET(H,V,4):NEXT 
45p CIRCLE(128,14P),4P,6 
46p DRAW"BMip8 / lp8C6F2pD3pG28 

4 7p DRAW"BM144 , lp6D2pFlpG2pD46 
48p PAINT(lp8,12p),3,6:PAINT(15p 
z12p),4,6:PAINT(14p,12p),6,6 
49p PLAY"T3L2.CL4CL2.GL4GL2AL4GF 
L2GCL2AL4GFL2GL4FEL2FL4ECL1D 
5PP PLAY"L2.CL4CL2.GL4GL2AL4GFL2 
GCL2AL4GFL2G04C03L1A# 

51p FOR X=lT03ppp:NEXT:CLS 

52p DIMPR$(68),N$(38),V$(13),IN( 


18),T(68) ,T$(68) ,E(2p) ,H(18) , RE ( 
68,4),L$(68) 

53p RD$=" YOUR COMMANDER HAS TOLD 
YOU THAT YOU HAVE BEEN ASSIGNED 
TO A MISSION TO EXPLORE A SECTI 
ON OF THE PLANET AANDARK. 

(PRESS ANY KEY TO CONTINUE)": 
GOSUB315P 
54p EXEC&HA171 

55p RD$="YOU WILL BE SHUTTLED DO 
WN TO THE SURFACE AND THERE YOU 
WILL GET NEEDED SUPPLIES, AND BE 
GIVEN LAST INSTRUCTIONS. AFTER 
FINAL BRIEFING, YOU ARE OFF. ( 
PRESS ANY KEY TO CONTINUE)":GOSU 
B315P 

56p EXEC&HA171 

57p PMODE4,1:SCREEN1,p 

58p F0RX=2pT08p:PCLS:CIRCLE(128, 

96),X:NEXTX 

59p R=8p:F0RX=96T0191STEP2 

6pp R=R+1:PCLS:CIRCLE(128,X),R:N 

EXTX 

61p FORH=lTO.piSTEP-.pl 

62p PCLS:X=X-1:CIRCLE(128,X),R,, 

H, . 5p,1:NEXT 

63p FORY=X T02pSTEP-l:LINE(p,Y)- 

(255,Y),PSET:PCLS:NEXT 

64p R=5:FORV=2pTO14p:R=R+1:PCLS 

65p CIRCLE(128,V),R,,1,.5p,l 

66p LINE(p,2p)-(255,2p),PSET:NEX 

TV 

67p GOSUB156p:V=p:X=1 

68p RD$="YOU ARRIVE AT THE BASE. 

THE BASE COMMANDER GIVES YOU SO 
ME LAST INSTRUCTIONS AND THEN TE 
LLS YOU THAT YOU MUST GET SUPPLI 
ES FOR THE TRIP. (PRESS A 

NY KEY TO CONTINUE)":GOSUB315p 
69p EXEC&HA171 

7PP RD$="HERE IS THE LIST OF SUP 
PLIES. YOU MAY CHOOSE ONLY 6. 

PHASER BACKPACK 

MATTRESS ROPE 

SLED FIRST AID K 

IT MAP FOOD TABLETS 

CANTEEN FLASHLIGHT":G 

OSUB315p 

71p F0RH=1T06:INPUTE$ 

72p IFH=lANDE$ON$ (4) THENPRINT"W 
HAT ARE YOU GOING TO CARRY IT I 
N? ":F0RK=lT02ppp:NEXT:G0T07pp 
73p IFE$="FOOD TABLETS"THENE$="T 
ABLETS":TB=4 

74p IFE$="FIRST AID KIT"THENE$=" 
KIT" 
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750 F0RJ=1T015:IFE$=N$(J)THENH(H 
)=J 

760 NEXT:NEXT 

770 RD$=" YOU LEAVE THE BASE AND 
FLY ONWARD TO YOUR MISSION. HOW 
EVER, JUST BEFORE YOU LAND, YOUR 
SHIP HAS ENGINE TROUBLE AND CRA 
SHES IN THE FOREST. YOU MUST SAL 
VAGE WHAT YOU CAN. (PRESS ANY KE 
Y TO CONTINUE)":GOSUB3150 
780 EXEC&HA171 
790 RD$=PR$(X) 

800 GOSUB1710 
810 GOSUB3150 
820 GOSUB1620 
830 GOSUB1800 
840 GOTO820 
850 DATA"YOU ARE INSIDE YOUR SHI 
P. IT IS DAMAGED BEYOND REPAIR. 
THERE IS A HATCHWAY EAST.","BOX; 
BACKPACK;","",0,2,0,0 
860 DATA"YOU ARE OUTSIDE YOUR SH 
IP. IT IS DAMAGED BEYOND REPAIR. 

A HATCHWAY WEST LEADS INTO THE 
SHIP. A TRAIL GOING NORTH LEADS 
INTO A FOREST.","","BM40,180R8U1 
2" , 3,0,0,1 

870 DATA"YOU ARE IN THE FOREST. 
THERE IS A TRAIL RUNNING NORTH-S 
OUTH.","","U8",4,0,2,0 
880 DATA"YOU ARE IN THE FOREST. 
THERE ARE TRAILS NORTH, SOUTH, A 
ND EAST.","U4R4L4U8",5,22,3,0 
890 DATA"YOU ARE IN THE FOREST. 
THERE IS A TRAIL RUNNING NORTH-S 
OUTH.","","U8",6,0,4,0 
900 DATA"YOU ARE IN THE FOREST A 
T A CROSSING. THERE ARE TRAILS N 
ORTH, SOUTH, AND WEST"U12D 
8L4",11,0,5,7 

910 DATA"YOU ARE IN THE FOREST. 
THERE IS A TRAIL RUNNING EAST-WE 
ST.L16", 0,6,0,8 
920 DATA"YOU ARE IN THE FOREST. 
THERE ARE TRAILS EAST AND SOUTH. 
" ,"","L8D8",0,7,9,0 
930 DATA"YOU ARE IN THE FOREST. 
THERE IS A ROCK WALL NEARBY. THE 
TRAIL ENDS HERE BUT WINDS NORTH 
"D12",8,0,0,0 

940 DATA"YOU ARE ON TOP OF A ROC 
K WALL.","BLUESTONE?","G4E16BD4G 
16",0,0,0,0 

950 ' DATA"YOU IN THE FOREST. TRAI 
LS GO SOUTH, NORTH, AND EAST."," 
", "BM48,128U8R8L8U8",13,12,6,0 


960 DATA"YOU ARE IN THE FOREST. 
THE TRAIL ENDS HERE BUT GOES WES 
T"BR8BD 8R8",0,0,0,11 
970 DATA"YOU ARE IN THE FOREST. 
TRAILS GO SOUTH, NORTH, AND WEST 
"BU8BL16U8L4R4U8",14,0,11, 

16 

980 DATA"YOU ARE IN THE FOREST. 
TRAILS RUN SOUTH AND EAST.",""," 
U8R8",0,15,13,0 

990 DATA"YOU ARE IN THE FOREST. 

A TRAIL WEST ENDS HERE.","GREENS 
TONE?","R8",0,0,0,14 



1000 DATA"YOU ARE IN THE FOREST. 

A TRAIL RUNS EAST-WEST"BM 
44,104L8",0,13,0,17 
1010 DATA"YOU ARE IN THE FOREST. 

TRAILS LEAD EAST, NORTH, AND SO 
UTH.","","L4D4U8",18,16,21,0 
1020 DATA"YOU ARE ON THE SIDE OF 
A HILL OUTSIDE A FOREST. TRAILS 
LEAD SOUTH AND WEST"U20L8 
",0,0,17,19 

1030 DATA"YOU ARE ON THE SIDE OF 
A HILL. TRAILS LEAD EAST AND SO 
UTH.","","L8D20",0,18,20,0 
1040 DATA"YOU ARE ON THE SIDE OF 
A HILL OUTSIDE A FOREST. A TRAI 
L LEADS EAST INTO A FOREST AND A 
NOTHER LEADS NORTH UP THE SIDE 0 
F THE HILL.","SWOOFLE;","D16R8", 
19,21,0,0 

1050 DATA"YOU ARE IN A FOREST. T 
RAILS LEAD NORTH AND WEST.",""," 
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R8U8" ,17,0,0,20 

1060 DATA"YOU ARE IN A FOREST. A 
TRAIL HERE RUNS EAST-WEST.","", 
"BM52,156R8",0,23,0,4 
1070 DATA"YOU ARE IN A FOREST. A 
TRAIL HERE RUNS EAST-WEST.","SI 
LVERSTONE?", M R12",0,24,0,22 
1080 DATA"YOU ARE AT THE BANK OF 
A RIVER. THE TRAIL RUNS EAST-WE 
ST ALONG THE NORTH SHORE OF THE 
RIVER.","","R4E8R12",0,2 5,0,2 3 
1090 DATA"YOU ARE AT NORTH BANK 
OF A RIVER. THE TRAIL RUNS EAST- 
WEST ALONG THE BANK, AND A TRAIL 
SOUTH LEADS ONTO A BRIDGE CROSS 
ING THE RIVER.","GALGAMESH?","R2 
0L8D4",0,0,0,24 

1100 DATA"YOU ARE ON A BRIDGE OV 
ER A RIVER. THE BRIDGE FACES NOR 
TH-SOUTH.","","R4D8L8U8R4D8",25, 
0/27,0 

1110 DATA"YOU ARE ON THE SOUTH S 
HORE OF A RIVER. A TRAIL CONTINU 
ES SOUTH AND ANOTHER EAST. A TRA 
IL NORTH LEADS ONTO A BRIDGE CRO 
SSING A RIVER.","","D4R4L4D4",26 
,34,28,0 

1120 DATA"YOU ARE IN A BIG FIELD 
. A PATH HEADS NORTH-SOUTH.","", 
"D8",27,0,29,0 

1130 DATA"YOU ARE IN A BIG FIELD 
. A PATH HERE LEADS NORTH-SOUTH. 
"D8",28,0,30,0 

1140 DATA"YOU ARE IN A BIG FIELD 
. A PATH LEADS NORTH AND EAST.", 

"GOLDROCK ?","D4R20",29,31,0,0 
1150 DATA"YOU ARE IN A BIG FIELD 
. A PATH LEADS NORTH AND WEST.", 
"","R20U4",32,0,0,30 
1160 DATA"YOU ARE IN A BIG FIELD 
. A PATH HERE RUNS NORTH-SOUTH." 

ii ii 33 0 31 0 

1170 DATA"YOU ARE*IN A BIG FIELD 
. A PATH LEADS SOUTH AND WEST.", 
"","U8L16",0,0,32,34 
1180 DATA"YOU ARE ON THE SOUTH B 
ANK OF A RIVER. A TRAIL LEADS EA 
ST-WEST.","","L20",0,3 3,0,2 7 
1190 DATA"YOU ARE ON THE NORTH B 
ANK OF A RIVER. TRAILS LEAD NORT 
H, EAST, AND WEST.","","BM116,14 
8R8U8D8R8",42,36,0,25 
1200 DATA"YOU ARE ON THE NORTH B 
ANK OF A RIVER. TRAILS LEAD EAST 
AND WEST.","R28",0,37,0,35 
1210 DATA"YOU ARE ON THE NORTH B 


ANK OF A RIVER. TRAILS LEAD EAST 
AND WEST.","","R3 2",0,3 8,0,3 6 
1220 DATA"YOU ARE ON THE NORTH B 
ANK OF A RIVER. A TRAIL NORTH LE 
ADS INTO A FOREST. A TRAIL WEST 
CONTINUES ALONG THE BANK.","","R 
24U40",39,0,0,37 
1230 DATA"YOU ARE IN THE FOREST 
BESIDE A SMALL HILL. TRAILS GO W 
EST AND SOUTH. THE ENTRANCE TO A 
CAVE IS NORTH.","","U24D12L28", 
48,0,38,40 

1240 DATA"YOU ARE IN A FOREST. A 
PATH HERE RUNS EAST-WEST.",""," 
L36",0,39,0,41 

1250 DATA"YOU ARE IN A FOREST. T 
RAILS HERE LEAD EAST AND SOUTH." 
,"","L28D32",0,40,42,0 
1260 DATA"YOU ARE IN A FOREST. T 
RAILS LEAD NORTH, SOUTH, AND WES 
T. " , "" , ,, D12U8L8" ,41,0,35,43 
1270 DATA"YOU ARE IN A FOREST. A 
TRAIL HERE RUNS EAST-WEST 
" L20",0,42,0,44 

1280 DATA"YOU ARE IN A FOREST. T 
RAILS RUN NORTH AND EAST.","","L 
8U12",45,43,0,0 

1290 DATA"YOU ARE IN A FOREST. A 
TRAIL HERE RUNS NORTH-SOUTH."," 
","U16",46,0,44,0 
1300 DATA"YOU ARE IN A FOREST NE 
AR A SWAMP. TRAILS RUN NORTH-SOU 
TH.","","U16 M ,47,0,45,0 
1310 DATA"YOU ARE IN A FOREST NE 
AR A SWAMP. A TRAIL SOUTH ENDS H 
ERE.","GLOWROCK;","U16R16",0,0,4 
6,0 

1320 DATA"YOU ARE IN A CAVE. THE 
RE IS A TUNNEL NORTH, AND A PASS 
AGE SOUTH EXITS THE CAVE.","","B 
M216,84U16BR4D16L8U16BR4",49,0,3 
9,0 

1330 DATA"YOU ARE IN A CAVE. THE 
RE ARE TUNNELS SOUTH, EAST, AND 
WEST. ","","U4L12R24BU4L24BD8R8BR 
8R8BU4",0,50,48,52 
1340 DATA"YOU ARE IN A CAVE. THE 
RE ARE TUNNELS WEST AND SOUTH.", 
"","R4D8BL4U4BU8R8D12BL4",0,0,51 
/ 49 

1350 DATA"YOU ARE AT A DEAD END. 

THERE IS A TUNNEL NORTHB 
R4D8L8U8BR4D4",50,0,0,0 
1360 DATA"YOU ARE IN A CAVE. THE 
RE ARE TUNNELS EAST, WEST, AND S 
OUTH.","","BM204,60L24BD8R4BR8R1 
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2BU4L24R8D4",0,49,53,56 

1370 DATA"YOU ARE IN A CAVE. THE 

RE ARE TUNNELS NORTH, EAST, AND 

WEST.","","BL4D4L4BD8R16BU8L4U4B 

L4D8R8L16",52,55,0,54 

1380 DATA"YOU ARE AT A DEAD END. 

THERE IS A TUNNEL EAST.","","BD 
4L8U8R8BD4L4",0,53,0,0 
1390 DATA"YOU ARE AT A DEAD END. 

THERE IS A TUNNEL WEST.","REDST 
ONE ?","BM196,72R8D8L8BU4R4",0,0, 
0/53 

1400 DATA"YOU ARE IN A CAVE. THE 
RE ARE TUNNELS NORTH, EAST, AND 
WEST.","BEAST?","BM180,60L4BL8L4 
BD8R16BU4L16R8U4",0,52,0,0 
1410 DATA"YOU ARE AT A DEAD END. 

THERE IS A TUNNEL SOUTH"B 
L4U8R8D8BL4U4",0,0,56,0 
1420 DATA"YOU ARE IN A CAVE. THE 
RE IS A TUNNEL EAST, AND A TUNNE 
L WEST EXITS THE CAVE"BM16 
8,60L12D8R12BU4L12",0,56,0,59 
1430 DATA"YOU ARE BESIDE A HILL. 

THERE IS A TRAIL WEST, AND THE 
ENTRANCE TO A CAVE IS EAST.","", 
"L16",0,58,0,60 

1440 DATA"YOU ARE IN A FOREST. A 
TRAIL HERE RUNS EAST-WEST.","", 
"L12",0,59,0,61 

1450 DATA"YOU ARE IN A FOREST. A 
TRAIL RUNS EAST-WEST"L2H1 
2L4",0,60,0,62 

1460 DATA"YOU ARE IN A FOREST. T 
RAILS RUN EAST, WEST, AND NORTH. 
","","L16R4U4",63,61,0,65 
1470 DATA"YOU ARE IN A FOREST. T 
RAILS HERE RUN EAST AND SOUTH.", 
"","U12R8",0,64,62,0 
1480 DATA"YOU ARE IN A FOREST. A 
TRAIL WEST ENDS HERE.","WHIRFLE 
?","R16",0,0,0,63 
1490 DATA"YOU ARE IN A FOREST. T 
RAILS HERE RUN EAST-WEST.","CUTT 
LEPLANT ?","BU4BL20BD20L16",0,62, 
0/0 

1500 DATA"YOU ARE BESIDE A CLIFF 
. A TRAIL EAST LEADS INTO A FORE 
ST.","","L24",0,65,0,0 
1510 DATA"YOU ARE AT THE TOP OF 
A MOUNTAIN. A DOORWAY WEST LEADS 
INTO A BUILDING NEARBY. A ROPE 
"LEADS DOWN THE FACE OF A CLIFF N 
EARBY"H16L8",0,0,0,68 
1520 DATA"YOU ARE AT THE COMMUNI 
CATIONS OUTPOST. A DOORWAY EAST 


LEADS OUTSIDE.","CABINET ?RADIO ?" 

,"U16L16D28R16U12",0,67,0,0 
1530 DATA EAST,WEST,PHASER,BACKP 
ACK,ROPE,FLASHLIGHT,TABLETS,CANT 
EEN,MAP,MATTRE SS,SLED,KIT,F LARES 
,BOX,PAPER,NORTH,SOUTH,N,S,E,W,B 
LUESTONE,SWOOFLE,GLOWROCK 
1540 DATA WALL,RADIO,CABINET,BEA 
ST,CUTTLEPLANT,GALGAMESH,GOLDROC 
K,GREENSTONE,WHIRFLE,REDSTONE,SI 
LVERSTONE,KEY,HELP,END 
1550 DATA GET,GO,LOOK,EAT,CLIMB, 
DROP,THROW,INV,SHOOT,OPEN,TURN,C 
ALL, END 

1560 F0RZ=1T068:READPR$(Z):READT 
$(Z):READL$(Z) 

1570 F0RJ=1T04:READ RE(Z,J):NEXT 
:NEXT 

1580 F0RC=1T038:READN$(C):NEXT 
1590 F0RC=1T013:READV$(C):NEXT 
1600 D$(1)="NORTH":D$(2)="EAST": 
D$(3)="SOUTH":D$(4)="WEST" 

1610 F0RJ=1T068:L$(J)="C5"+L$(J) 

:NEXT:RETURN 

1620 LINEINPUT">"?I $:X1=X1+1:GOS 
UB3280 

1630 A$="":B$="":A=0:B=0:I$=I$+" 

ii 

164J3 FORC=lTOLEN (I $) 

165)3 IFMID$ (1$ , C , 1) =" "THEN Il$= 
LEFT$(1$,C-l) :I$=MID$(I $,C+l) :C1 
=1: C2=l: GOSUB167)3 : G0T0164)3 
1660 NEXT:RETURN 

167)3 IFI1$=V$ (Cl) THENA$=I1$: A=C1 
:RETURN 

1680 C1=C1+1:IFV$(Cl)="END"THEN1 
690 ELSE1670 

1690 IF I1$=N$(C2) THEN B$=I1$:B 
=C2:RETURN 

17)3)3 C2=C2+1: IFN$ (C2) ="END"THENR 

ETURN ELSE1690 

171)3 IFT$ (X) = ""THENRETURN 

1720 IFE (1) >)3THENRETURN_ 
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BY F RED D. PRDUDNCHA 



65 





1730 G$=T$(X): V=0 
1740 F0RC=1T0LEN(G$) 

1750 IFG$=""THEN1780 
1760 IFMID$(G$,C,1)=";"THENV=V+1 
:G0SUB3130:G$=MID$(G$ f C+l) sG0T01 
740 

1770 NEXT 

1780 FORR=lTOV:IFE(R)>0THENRD$=R 
D$+" THERE IS A "+N$(E(R))+" HER 
E." 

1790 NEXT:RETURN 

1800 ON A GOTO 1820,1930,2090,21 
50,2180,2230,2400,2430,2470,2530 
,2580,2640 

1810 PRINT"I DONT UNDERSTAND":RE 
TURN 

1820 IFB>24ANDB<31THENPRINT"YOU 
CAN'T GET A "11$:RETURN 
1830 FORC=lTOV:IFB=E(C)THEN1860 
1840 NEXTC 

1850 PRINT"THERE ISN'T A "Il$" H 
ERE":RETURN 

1860 IFB<>4THEND=D+1:IN(D)=B:E(C 
)=0:PRINT"OK":GOTO1890 
1870 FORP=lTOH:IN(P+D)=H(P):NEXT 
1880 E(C)=0:D=P+D:PRINT"OK" 

1890 T$(X)="":FORQ=lTOV:IFE(Q)=0 

THENNEXTQ:GOTO1920 

1900 T$(X)=T$(X)+N$(E(Q) 

1910 NEXTQ 
1920 RETURN 

1930 F0RJ=1T04:IFLEFT$(D$(J),1)= 

LEFT$(B$,1)THEN1950 

1940 NEXT:GOTO2000 

1950 IFRE(X,J)=0THEN2000 

1960 FORQ=lTOV:IFE(Q)=0THENNEXTQ 

:GOTO1980 

1970 T$(X)="":T$(X)=T$(X)+N$(E(Q 

) E(Q)=0:NEXT 

1980 IFX>2THENGOSUB2040 

1990 X=RE(X,J):T(X)=1:GOTO790 

2000 IFX=25ANDE(1)=30THENPRINT"H 

E RISES OUT OF THE RIVER AND B 

ARS THE WAY.":RETURN 

2010 IFX=5 6ANDE(1)=2 8THENPRINT"H 

E RISES UP AND WONT LET YOU P 

ASS.":RETURN 

2020 IFX=65ANDE(1)=29THENPRINT"I 
T BLOCKS THE PATH AND WONT LET Y 
OU THROUGH.":RETURN 
2030 PRINT"YOU CANT GO THAT WAY. 
":RETURN 

2040 IFX<59ANDX>47ANDFM=0THENDA= 
DA+1 

2050 IFDA=1THENRD$="IT IS TOO DA 
RK TO SEE. IF YOU CONTINUE, YOU 


WILL FALL IN A PIT.":GOTO810 
2060 IFDA=2THENRD$="YOU FELL IN 
A PIT AND BROKE YOUR NECK.":GOSU 
B3150:G0T03 310 

2070 FORY=lTOD:IFIN(Y)=9THENRETU 
RN ELSENEXT 

2080 CLS:PRINT:PRINT" YOU GET LO 
ST AND ARE NEVER HEARD FROM 

AGAIN BECAUSE YOU DIDN'T HAV 

E A MAP.":GOTO3310 
2090 IF B$<>"" THEN 2110 
2100 RD$=PR$(X):GOSUB1780:GOTO 8 
10 

2110 IFB=15THENRD$="IT SAYS: 'IN 
CASE OF EMERGENCY, GO TO NEARES 
T OUTPOST AND RADIO FOR HELP. WH 
EN RESCUE SHIP IS IN SIGHT, SHOO 
T FLARE.'":GOTO 3150 
2120 IFB= 23THENRD$="IT IS A SMAL 
L, ROUND, FURRY ANIMAL THAT CAN 
FIT IN THE PALM OF YOUR HAND.":G 
OTO3150 

2130 IFB=9THEN3010 

2140 PRINT"I SEE NOTHING SPECIAL 

":RETURN 

2150 IFB=70RI1$="TABLET"THEN IFT 
B> 0THENTB=TB-1:T1=0:PRINT"YUMMY" 
:RETURN 

2160 IFB=70RI1$="TABLET"THEN IFT 
B<1THENPRINT"THERE ARE NO MORE L 
EFT.":RETURN 

2170 CLS:PRINT:PRINT" YOU SUDDEN 
LY BECOME SICK AND DIE.":GOTO 
3310 

2180 IFX=9ANDB=25THENX=10:T(X)=1 
:GOTO790 

2190 IFX=10ANDB=2 5THENX=9:G0T07 9 

0 

2200 IFX=66ANDCL=1ANDB=5THENX=67 
:T(X)=1:GOTO790 

2210 IFX=67ANDB=5THENX=66:G0T079 

0 

2220 PRINT"YOU CANT DO THAT":RET 
URN 

2230 FORJ=lTOD:IFB=IN(J)THEN2250 
ELSENEXT 

2240 PRINT"YOU DONT HAVE A "B$:R 
ETURN 

2250 IFB04THENIN (J) =0 :V=V+1: E (V 
)=B:T$(X)=T$(X)+B$+";»:GOTO2280 
2260 FORH=lTOD:H(H)=IN(H):IN(H)= 
0: NEXT 

2270 V=V+1:E(V)=B:T$(X)=T$(X)+B$ 
+ ";" 

2280 D2=D:D=0:FORC=lTOD2:Q=INV(C 
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2290 IFQO0THEND=D+1: INV (D) =Q 
2300 NEXT:PRINT"OK" 

2305 IFB=7THENTB=0 
2310 IFX=25ANDB=22THENRD$="THE B 
LUESTONE DRIVES AWAY THE GALGAME 
SH. IT THEN SUDDENLY VANISHES.": 
RE(25,2)=35:RE(25,3)=26:G0T02 350 
2320 IFX=56ANDB=23THENRD$="THE S 
WOOFLE ATTACKS THE BEAST AND CHA 
SES IT DOWN THE TUNNEL OUT OF SI 
GHT.":RE(56,1)=57:RE(56,4)=58:GO 
TO2350 

2330 IFX=65ANDB=24THENRD$="THE R 
OCK STARTS TO GLOW, AND THE PLAN 
T WITHERS AND DIES. THE ROCK THE 
N DISINTEGRATES.":RE(6 5,4)=6 6:GO 
TO 23 50 
2340 RETURN 
2350 FORJ=lTOV 

2360 IFX=25THENIF E(J)=30ORE(J)= 
22THENE(J)=0 

2370 IFX=56THENIF E(J)=23ORE(J)= 
28THENE(J)=0 

2380 IFX=65THENIF E(J)=290RE(J)= 
24THENE(J)=0 

2390 NEXTJ:GOSUB1890:GOTO810 
2400 FORJ=lTOD 

2410 IFB=5ANDIN(J)=5ANDX=66THENP 
RINT"THE ROPE IS SECURELY TIED T 
O THE TOP OF THE CLIFF.":INV( 
J)=0:CL=1:RETURN 

2420 NEXTJ:PRINT"YOU CANT DO THA 
T":RETURN 

2430 RD$="YOU ARE CARRYING: ":FO 
RH=1T0D 

2440 IFIN(H)=0THEN24 60 
2450 RD$=RD$+N$(IN(H))+"/ " 

2460 NEXTH:GOTO810 
2470 FORJ=lTOD:IFIN(J)=3THEN2480 
ELSENEXTJ:GOTO 2 2 20 
2480 IFX=25ANDB=30ANDE(1)=30THEN 
RD$="YOU HURT HIM, BUT YOU DONT 
KILL HIM. HE ROARS IN RAGE, GRAB 
S YOU, AND RIPS YOU APART.":GOSU 
B3150:G0T03 310 

2490 IFX=65ANDB=29ANDE(1)=29THEN 
RD$="BEFORE THE PLANT DIES, IT S 
HOOTS HUNDREDS OF SHARP, TINY NE 
EDLES AT YOU, WHICH KILL YOU.":G 
OSUB3150:GOTO3310 
2500 IFX=56ANDB=28ANDE(1)=28THEN 
X=25:B=30:E(1)=B:GOTO2480 
2510 FORJ=lTOV:IFB=23ANDE(J)=23T 
HENE(J)=0:PRINT"HE IS FRIED INST 
ANTLY.":RETURN 

2520 NEXT:PRINT"YOU CANT DO THAT 


":RETURN 
2530 FORL=lTOD 

2540 IFIN(L)=14ANDB=14ANDFL=0THE 
NFL=1:PRINT" THERE ARE FLARES AN 
D PAPER IN THE BOX":D=D+2:IN(D 
-1)=13:IN(D)=15:RETURN 
2550 NEXT 

2560 IFX=68ANDCB1=0ANDB=27THENCB 
1=1:V=V+1:E(V)=3 6:T$(X)=T$(X)+"K 
EY;":PRINT"THERE IS A KEY IN THE 
CABINET.":RETURN 

2570 PRINT"YOU CANT OPEN THAT":R 
ETURN 

2580 FORJ=lTOD 

2590 IFIN(J)=6ANDFM=0ANDB=6THENF 
M=1:DA=0:PRINT"THE FLASHLIGHT IS 
NOW ON.":RETURN 

2600 IFIN(J)=6ANDFM=1ANDB=6THENF 
M=0:PRINT"THE FLASHLIGHT IS NOW 
OFF.":RETURN 

2610 IFIN(J)=36ANDB=26ANDX=68AND 
RD=0THENRD=1:PRINT"THE RADIO IS 
ON.":RETURN 

2620 IFIN(J)=36ANDB=26ANDX=68AND 
RD=1THENRD=0:PRINT"THE RADIO IS 
OFF.":RETURN 
2630 NEXT:G0T02650 
2640 IFRD=1ANDB=37ANDX=68THEN266 
0 

2650 PRINT"YOU CANT DO THAT.":RE 
TURN 

2660 RD$="A WHILE LATER, A RESCU 
E SHIP FLIES BY.":GOSUB3150 
2670 LINEINPUT">";I $ 

2680 FORJ=lTOD 

2690 IFI$="SHOOT FLARE"ANDIN(J)= 
3THENRD$="THE SHIP SWOOPS DOWN A 
ND RESCUES YOU. YOU ARE THEN BRO 
UGHT BACK TO BASE.":GOSUB3150:GO 
TO2720 

2700 NEXT:RD$= M THE SHIP FLIES BY 
AND DOESN'T NOTICE Y0U.":G0T081 

0 

2710 FORZ=1TO2000:NEXT 
2720 RD$="YOU ARE BEFORE YOUR CO 
MMANDER. HE IS STUDYING YOUR MA 
P." 

2730 FORX=1TO2000:NEXT 
2740 F0RK=1T068:T=T+T(K):NEXTK 
2750 IFT<50THENRD$=RD$+"HE IS VE 
RY DISGUSTED WITH YOU. YOUR MAP 
IS VERY INCOMPLETE.":GOSUB3150 
2760 IFT>49ANDT<65THENRD$=RD$+"H 
E IS PLEASED WITH YOUR JOB OF MA 
PPING THE QUADRANT.":GOSUB3150 
2770 IFT>64THENRD$=RD$+"HE SAID 
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YOU DID A TERRIFIC JOB OF EXPLOR 
ING THE QUADRANT. HE IS GOING TO 
RECOMMEND YOU FOR PROMOTIONG 
OSUB315J3 

278J3 F0RJ=lT03j3j3j3: NEXT: CLEAR: DIM 
A(5,5) 

279J3 PMODE4,1: SCREEN1,1: PMODE3,1 
:PCLS:COLOR2,1 

28J3J3 LINE (12,48 ) - (28,2J3) , PSET 
281J3 LINE-(44,48) , PSET 
282J3 LINE (2J3,3 6) - (3 6,3 6) , PSET 
283/3 GET (12,2J3)- (44,48) , A 
284/3 PUT(52,2J3)- (84,48) , A 
285J3 LINE ( 92,48 ) - (92,2J3) , PSET 
286/3 LINE-(116,48) ,PSET:LINE-(11 
6,2/3) , PSET 

287/3 CIRCLE(128,34) ,16, ,1, .75, .2 

5 

288/3 LINE( 128, J3) - (128,52), PRESET 
289/3 DRAW"BM128,48L4U28R4 
29/3/3 PUT(148,2J3)-(18J3,48) ,A 
291J3 DRAW"BM188,48U28R12F4D8G4L1 
2R8F12 

292/3 DRAW M BM216,2J3D28U12E16G12F1 

6 

293/3 CIRCLE (128,115) , 5/3 

294/3 DRAW"BM1J3J3,78F2J3D3J3G15D12 

295/3 DRAW"BM14J3,7j3D2j3F15D2j3G15D2 

2960 PAINT (1J38,12 J3) , 3,6 : PAINT (15 
/3,12/3) ,6,6: PAINT(16/3,12/3) ,4,6 
297/3 PLAY"T3L2 . CL4CL2 . GL4GL2AL4G 
FL2GCL2AL4GFL2GL4FEL2FL4ECL1D 
298/3 PLAY"L2 . CL4CL2 . GL4GL2AL4GFL 
2GCL2AL4GFL2G04C03L1A#L4A# 

299/3 PLAY"P2P4L2 . AL4A04L2 . CL4C03 
L2BL1GP8L4EL2FL4GAL2GFL1EGL2.AL4 
A04L2.CL4C03L2BL1G04L4CL1DC03A#0 
4DCL2.C 
3/3/3/3 G0T03J3J3J3 

3/31/3 PMODE3,1: SCREEN1, 0 : COLOR4,2 
3/32/3 PCLS : DRAW"S4C4BM12,18j3E5R8D 
6L12R4F4R3U4 

3/33/3 PSET(16,172) :PSET(6,176) :PS 
ET(12,184):PSET(32,184) 

3/34/3 DRAW"C3BM255,152L168G12D28R 
8U24E8R164":PAINT(255,154),3 
3/35/3 CIRCLE (/3,/3) ,92,4: CIRCLE (2/34 
,16),76,4 

3/36/3 CIRCLE (1/3/3,88) ,8,3: PAINT (96 
,88),3 

3/37/3 F0RJ=1T068 

3/38/3 I FT (J) =1THENL$ (J) =MID$ (L$ (J 
),3):L$(J)= M C4"+L$(J) 

3/39/3 I FT (J) =J3THENL$ (J) =MID$ (L$ (J 
),3):L$(J)="C2»+L$(J) 


31/3/3 DRAWL$(J) : NEXT J 

311J3 IFT (68) =1THENPAINT (24,32) ,4 

312/3 A$=INKEY$ : IFA$=" "THEN312J3EL 

SERETURN 

313/3 F0RJ=1T037:IFN$(J)=LEFT$(G$ 
,C-l)THENE(V)=J:RETURN 
314/3 NEXT 

315/3 PR$=RD$ : CX$=CHR$ (32): LL=3 1 
316/3 CO=RND (8) : CLS (CO) 

317J3 PRINT032, ;: PRINTTAB(1) ; 

318j3 IFLEN(PR$) <LL THEN3 24j3 

319/3 FORCX=LL T01STEP-1 

32/3/3 IFMID$ (PR$ , CX, 1) =CX$THENCC= 

CX: G0T0322J3 

321/3 NEXTCX: GOTO324/3 

322/3 PRINTLEFT$ (PR$ , CC-1) ;:PR$=M 

ID$(PR$,CC+1):PRINT:PRINTTAB(1); 

323/3 IFLEN(PR$) >LL THEN319J3 

324/3 PRINTPR$:BL=143 

325/3 BL=BL+ (16* (CO-1) ) 

326/3 F0RC=J3T09:PRINT@32*C,CHR$(B 
L) ;:PRINT@32*C+31,CHR$(BL) ;:NEXT 
327/3 RETURN 

328/3 T1=T1+1:IFT1=2 5THENPRINT"Y0 
U ARE GROWING HUNGRYF0RJ=1T02 
/3/3/3 : NEXT: RETURN 

329/3 IFT1=3J3THENCLS : PRINT: PRINT" 
YOU STARVED TO DEATH i " : G0T03 31/3 
33/3/3 RETURN 

331/3 PRINT: PRINT" DO YOU WANT TO 
GO ON ANOTHER ADVENTURE?" 
332/3 PRINT: PRINT">" ; : LINEINPUTC$ 
333/3 IFLEFT$ (C$,1) ="N"THENEND EL 
SERUN ^ 
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1HE /^DMENrURES 

OF 

JOHNNY ZERO 

Program by Mark and 
I I Mike Anderson 


t’s the year 2091. Twelve months have elapsed 
since the man known to the world as The 
Button was elected International President. His 
plan for worldwide peace and equality among 
all nations won the overwhelming support of 
the majority of the voting populace around the 
globe. His implementation of a master 
computer-controlled crime prevention system, 
operated by a sophisticated robotic police 
force, has already reduced the crime rate to near 
zero percent in targeted countries. Political 
experts speculate that The Button’s presidency 
could lead to the creation of a Utopia before 
the end of the decade. What a great way to begin 
the 22nd century! 

You are Agent Johnny Zero, defender of 
international security. However, you far sur¬ 
pass anything in the field of robotics, as you are 
the world’s first genetic computer, and the most 
human-like android ever created. Unlike tradi¬ 
tional ’droids, which are locked into the binary 
logic of a conventional computer, your central 


71 



processing unit consists of bionic microchips, made up of genetically developed 
microorganisms. The organisms produce enzymes, necessary for the transmis¬ 
sion of thought impulses. The enzymes are very similar to the ones found in 
the human brain. So similar, in fact, that you possess emotions, feelings and 
have a full range of human values. 

Your job, as senior agent of The Button’s special peacekeeping force, is to 
deal with the evil menaces still plaguing society. As you activate the CoCo to 
check in with headquarters, a flashing red light signals an emergency. The 
message: 

The Button has been kidnapped! 

Initial robotic rescue squad’s whereabouts - unknown. 

Rll are presumed to be deactivated, except Rgent Eyeball. 

You are being summoned to complete the rescue. 

5TRNDBY FDR FURTHER INSTRUCTIONS . . . 

Stunned, you ease back for a moment to ponder the alarming revelation. 
Although angered by the news of The Button’s disappearance, you are 
enthusiastic about the assignment. Who could possibly be responsible for this 
dastardly crime? You have a hunch. 

Suddenly, another transmission from headquarters conveys further 
information. 

SEEK RND DESTROY THE FOLLOWING: 

RGENT P.H. ORRNGE - Suspected kingpin of all enemy activity. 

He recently escaped from prison and may possibly possess the 
secretcode to international security. Last transmission from 
Rgent Eyeball indicates Orange organized the kidnapping and 
is personally holding The Button. TERMINRTION IS ESSENTIRL! 

THE PENCIL - R highly dangerous schizoid. He has frequently 
been linked to enemy activity and is believed to have assisted 
in Rgent Orange’s escape. 

THE HRNNER - Rssociation with Rgent Orange is uncertain, but 
he has been involved with similar kidnappings of political 
nature. 

RGENT 5PRDE - The suspected right-hand man of Rgent Orange. 
Most files on him have been stolen, but he is believed to have 
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held the organization together during Orange’s imprisonment. 
STRNDBY FOR FINRL INSTRUCTIONS . . . 

Just as you had suspected. Agent Orange is responsible for The Button’s 
kidnapping. You recall that Orange was a highly successful government agent 
from 2088 to 2090. However, during the third month of The Button’s presidency, 
he became greedy and stole the secret code to the master computer. Fortunately, 
he was arrested before the code could be utilized. 

Although, while in prison, Orange underwent a complete memory erasure 
process, the technique was found to have serious defects and total retention 
of the code is a definite possibility. 

Your thoughts are interrupted by the final message from headquarters: 

We have just received an anonymous notice. The Button will be 
executed tomorrow and the captors plan to intercept the IPT 
(International Public Television) Network’s transmission to 
telecast the execution worldwide. Johnny Zero, you must rescue 
The But ton and destroy the criminals involved. They may possess 
the power to take over the world. Good luck - over and out. 

The Adventures of Johnny Zero is a random Adventure featuring scrolling 
text and high resolution graphics. 

You will be guided through the Adventure with graphics displays and 
questions from the computer. One-letter responses of N (North), 5 (South), E 
(East), W (West), Y (Yes) and N (No) are all you need to proceed in rescuing 
The Button from the clutches of the enemy agents. 


Mike Anderson, a recent electronics major graduate, enjoys playing guitar 
and weightlifting. His brother, Mark, is in the eighth grade. He enjoys 
Adventure programming and collecting vintage baseball cards. Questions 
or comments may be addressed to the Andersons at 8453 E. Rolling Ridge 
St., Tucson, AZ 85710. Please enclose an SASE when requesting a reply. 
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JOHNNY 0 32K ECB 


0 CLEAR800 

1 CLEAR:DIML$(33) 

2 R=178:P$="L15T1505CA":P1$="L4T 
502DA03DL5ADB-ADBADB-AD02DA" 

3 G0T09 

4 H=H+6 

5 A$="N":GOSUB34:PLAYP$:RETURN 

6 D$=INKEY$:IFD$=""THEN6 ELSERET 
URN 

7 H=H+6 

8 A$="Y":GOSUB34:PLAYP$:RETURN 

9 WN=20 

1) 3 LP$=")3":AG$=")3":SP$="J3" 

11 PE$="U4E8H4G4H4G4BR16U7 6H4L8G 
4D8R16BL16D68F8" 

12 H$="R28D12L28U12BR10BD12D24R8 
U24BU1)3BR4L6D6R6U6BL12L6D6R6U6" 

13 S$="H8L4U16E4F8D4E4U20H10L4U2 
8R12F4U4H12L12E16L9G16L20G8D4E4R 
12D8G4R4D4E4D12H4D4F4R6E4F4D4L4G 
10D20F4U4E8F4D16L4G8R30BL30BU80G 
4F4U8BL8BU2R24F4" 

14 SA$="F8D4F4D4H4L6D6F2L8E2U6L6 
G4U4E4U4E8" 

15 CA$="H4R8F4D8F4L16U4L4D4R4BL4 
L20U4L4D4R4BL4L16E8R12E4R24BL4G4 
L20" 

16 L$(1)="R":L$(2)="BR4UBU2U3BD6 
BR3":L$(5)="BU5ER2FDGLDBDDBR6" 

17 L$(7)="U4E2F2D2NL4D2":L$(8)=" 
NR3U6R3FDGNL3FDGBR":L$(9)="BUFNR 
3HU4ER3BD6":L$(10)="NR3U6R3FD4GB 
R":L$(11)="NR4U3NR3U3R4BD6":L$(1 

2) ="U3NR3U3R4BD6" 

18 L$(13)="BUFR2EU2L2BL2D3U5ER2F 
BD5":L$(14)="U6D3R4U3D6":L$(15)= 
"R4L2U6L2R4BD6":L$(16)="BUFR2EU5 
BD6":L$(17)="U6D3RNE3F3":L$(18) = 
"NU6R4" 

19 L$ (19)="U6F2E2D6" :L$ (2)3)="U6D 
F4DNU6":L$(21)="BUU4ER2FD4GL2HFB 
R3":L$(22)="U6R3FDGL2BD3BR3":L$( 

23) ="BUU4ER2FD4GL2HFR2EHF2L":L$( 

24) ="U6R3FDGL3R2F2D":L$(25)="BUF 
R2 EUHL2HEUR2FBD5" 

20 L$(26)="BU6R4L2D6BR2":L$(27) = 
"BU6D5FR2EU5D6":L$(28)="BU6D2FD2 
FEU2EU2BD6":L$(29)="NU6E2F2NU6": 
L$ (3j3)="UE4UBL4DF4D" : L$ (31)="BU5 
UDF2E2UDG2D3BR2":L$(32)="BU6R4DG 
4D1R4 " 

21 PMODE4,1:PCLS:SCREEN1,1 

22 PCLS5:POKER,2:LINE(3,88)-(251 
,98) ,PSET,B:COLOR)3:A$="THE ADVEN 


TURES OF JOHNNY ZERO":H=8:V=96:G 
OSUB34:F0RX=1T04:PLAYP1$:NEXT:CO 
LOR5 

23 GOTO38 

24 PCLS : COLORS : DRAW"BM)3,14)3R255" 
:DRAW"BM145,129S3"+CA$:POKER,1:P 
AINT(143,134) , ,5:FORX=1TO100:PSE 
T(RND(255),RND(117),5):NEXT:RETU 
RN 

25 FORT=lTO 2)30)3 : NEXT: PCLS : PLAY"T 
201EAEA02EDCCDE01EL2A":DRAW"BM14 
2,116C5"+CA$:POKER,1:PAINT(14 3,1 
15),,5:A$="GAME OVER":H=88:V=44: 
DRAW"C5":GOSUB34 

26 IFWN<=0 THENA$="YOU DIE FROM 
WOUNDS":H=54:V=160:GOSUB34 

27 A$="PLAY AGAIN ?":H=84:V=64:G 
OSUB34 

28 GOSUB6: IFD$o"Y"THEN30 

29 GOTOl 

30 CLS:END 

31 A$="YOU ESCAPE ":RETURN 

32 FORT=1TO1500:NEXTT:RETURN 

33 FORT=1TO3000:NEXTT:RETURN 

34 FORA=lTOLEN(A$):M$=MID$(A$,A, 
1):B=ASC(M$)-58 

35 IFB=-2 6 THENH=H+10:GOTO37 

36 DRAW"BM"+STR$(H)+","+STR$(V)+ 
";"+L$(B):H=H+8 

37 NEXT:RETURN 

38 PCLS:DRAW"BM232,176"+CA$ 

39 POKER,1:PAINT(238,184),,5:POK 
ER, 3 

40 A$="DIRECTION:?":H=8:V=8:GOSU 
B34 

41 GOSUB6 

42 IFD$="E" THENA$="E":H=98:V=8: 
GOSUB34:PLAYP$:GOSUB32:G0T0138 

43 IFD$="N"THEN50 

44 IFD$="W"THEN48 

45 IFD$="S"THEN49 

46 GOSUB7 5:GOTO 41 

47 PCLS 

48 A$="W":H=98:V=8:GOSUB34:PLAYP 
$:GOSUB3 2:GOTO186 

49 A$="S":H=98:V=8:GOSUB34:PLAYP 
$:GOSUB3 2:GOTO 224 

50 A$="N":H=98:V=8:GOSUB34:PLAYP 
$:GOSUB3 2 

51 PCLS5:POKER,13:LINE(80,130)-( 
168,191),PSET,BF:COLOR0:LINE(112 
,176)-(128,191),PSET,BF:DRAW"C5B 
M116,184D4" 

52 COLOR5:LINE(100,148)-(112,160 
),PSET,BF:LINE(144,148)-(156,160 
),PSET,BF:DRAW"BM144,154C0R6NU6D 
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6BU6R6" : DRAW"BM100, 154C0R6NU6D6B 
U6R6" 

53 DRAW"C0BM80,136L16E24R72F24L1 
6U6L88D6":PAINT(124,116),0,0 

54 DRAW"BM232,179C0"+CA$: POKER, 1 
:PAINT(238,184),,0 

55 COLOR0:LINE(0,0)-(130,40),PSE 
T,BF:COLOR5:A$="OPEN DOOR ?":H=8 
: V=l)3: GOSUB34 

56 GOSUB6 

57 IFD$="Y"THENGOSUB7:GOSUB3 2 : GO 
T061 

58 IFD$="N"THENGOSUB4:GOSUB32:GO 
T06 0 

59 GOSUB7 5:GOTO 5 6 

60 IFAO=l THEN55 ELSE38 

61 PCLS5 : DRAW"C0BM255,4)3L3)3D1)3L3 
)3D1)3L3)3D1)3L3)3D1)3L3)3D1)3L3)3D1)3L3)3D 
10L30D10L30" : DRAW"BM)3,128C)3R255" 
:PAINT(255,127),0,0:DRAW"BM255,0 
C0L30D40" :‘POKER, 1: PAINT (252,10), 
,0:DRAW"C0BM24 9,20D7" 


FIGHT HIH ? A6ENT ORAN6E 



62 POKER,2:L1$="BM15,110R8L11C0L 

it 

63 IF LP$="0" THENDRAWL1$ELSE70 

64 COLOR0:LINE(0,132)-(112,180), 
PSET,BF 

65 A$="A LASER PEN":H=8:V=140:CO 
LOR5:GOSUB34:A$="WANT IT ?":H=8: 
V=151:GOSUB34 

66 GOSUB6 

67 IFD$="Y"THENA$="Y":H=90:V=151 
:GOSUB34:PLAYP$:A$="OK":H=8:V=16 
l:LP$="l":GOSUB34:GOTO70 

68 IFD$="N"THENA$="N":H=90:V=151 
:GOSUB34:PLAYP$:A$="OK":H=8:V=16 
1:GOSUB3 4:G0T070 

69 A$="IMPOSSIBLE":H=8:V=169:GOS 
UB34:GOSUB32:COLOR0:LINE(7,159)- 
(100,169),PS ET,BF:COLORS:GOTO 6 6 

70 COLOR0:LINE(0,0)-(130,40),PSE 
T,BF:A$="CONTINUE:?":H=8:V=10:CO 


LOR5:GOSUB34 

71 GOSUB6 

72 IFD$="Y"THENGOSUB7:GOSUB32:GO 
T077 

73 IFD$="N"THENGOSUB4:GOSUB32:GO 
T076 

74 GOSUB7 5:GOTO 71 

75 A$="IMPOSSIBLE":I$="10,32":GO 
SUB33 9:FORT=1TO1000:NEXT:LINE(10 
,26)-(100,34),PRESET,BF:RETURN 

76 IFAO=l THEN70 ELSE51 

77 POLS:POKER,1:DRAW"BM0,140D51R 
29U51L29":PAINT(24,168),,5:DRAW" 
BM8,164C5D8" 

78 DRAW"BM52,191C5U23R48D23L4U19 
E4G4L40H4F4D20L4":POKER,2:PAINT( 
84,169),,5 

79 DRAW"BM64,167C5U8H4U2R16C5D2L 
16BR16G4D8L8":POKER,1:PAINT(66,1 
65),,5 

80 DRAW"BM188,191C5U36R56D36L52U 
32R48D32":POKER,2:PAINT(220,157) 
,/5 

81 COLOR5:CIRCLE(216,172),12,,.8 
9:CIRCLE(216,172),9,,.59:POKER,2 
:PAINT(216,172),,5:COLOR5:CIRCLE 
(216,172),1,0:POKER,1:PAINT(216, 
178),,5:PAINT(216,165),,5 

82 COLOR5:F0RX=194T0238STEP8:DRA 
W"BM"+STR$(X)+",159D32":NEXT 

83 IFAO=l THEN106 

84 IFDH=1 THEN106 

85 X=RND(2) 

86 IFXol THEN89 

87 POKER,3:DRAW"BM112,152"+H$ 

88 POKER,1:PAINT(124,156),,5:POK 
ER, 2:PAINT(126,184) ,,5:F0RX=1T02 
0:PLAYP$:NEXT:G0T097 

89 A$="AGENT EYEBALL":H=150:V=89 
:GOSUB34:A$="SAYS SHRINK":H=150: 
V=99:GOSUB34:A$="PILLS IN BLUE": 
H=150:V=109:GOSUB34:A$="JAR<":H= 
150:V=119:GOSUB34 

90 A$="WANT PILLS ?":H=8:V=8:GOS 
UB34 

91 GOSUB6 

92 IFD$="Y"THENGOSUB7:A$="OK":H= 
8:V=18:GOSUB3 4:SP$="1":GOTO96 

93 IFD$="N"THENGOSUB4:A$="OK" : H= 
8:V=18:GOSUB34:GOSUB32:G0T096 

94 GOSUB7 5:GOTO 91 

95 GOSUB32:GOTOlll 

96 GOSUB31:H=150:V=8:GOSUB34:GOT 
095 

97 COLORS:A$="THE HAMMER IS HERE 
<":H=65:V=9 6:GOSUB34 
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98 IFLP$="1" THENA$="USE PEN ?" : 
H=8:V=8:GOSUB34:ELSE109 

99 G0SUB6 

100 IFD$="Y"THENG0SUB7:GOSUB32:G 
OTO103 

101 IFD$="N"THENG0SUB4:GOSUB32:G 
OTO109 

102 G0SUB75:G0T099 

103 X=RND(2):IFX=1 THEN104 ELSE1 
10 

104 POKER,RND(4):LINE(108,148)-( 
140,190),PSET,BF:LINE-(108,148), 
PRESET,BF 

105 COLOR5 : A$="HE IS DEAD<":H=90 
:V=106:GOSUB34 

106 COLOR0:LINE(192,160)-(240,19 
1),PSET,BF:COLOR5:CIRCLE(216,172 
),12,,.89:CIRCLE(216,172),9,,.59 
:POKER,2:PAINT(216,172),,5:CIRCL 
E(216,172),1,0:POKER,1:PAINT(216 
,178),,5:PAINT(216,165),,5:COLOR 
5 

107 F0RT=1T015:PLAYP$:NEXT:COLOR 
5:A$="AGENT EYEBALL JOINS YOU<": 
H=56:V=13 6:GOSUB34:LINE(0,0)-(2 5 
5,136),PRESET,BF:EY=1:GOSUB32:GO 
T089 

108 GOSUB31:H=150:V=8:GOSUB34 : GO 
T095 

109 F0RX=1T07:PLAYP$:NEXT:A$="HE 
NAILS YOU<":H=84:V=106:GOSUB34: 

WN=WN-7:GOTO108 

110 F0RX=1T07:PLAYP$:NEXT:A$="YO 
U MISS HIM;":H=84:V=106:GOSUB34: 
WN=WN-7:GOTO108 

111 GOSUB32:PMODE4,1:PCLS:SCREEN 
1,1:CIRCLE(128,160),10,5,.93 

112 A$="A SMALL HOLE":H=84:V=48 : 
GOSUB34 

113 LINE(106,148)-(150,172),PSET 
,B:POKER,l:PAINT(108,152),,5:COL 
OR5 

114 IFSP$="1"THENA$="TAKE PILLS 
? ":H=8:V=10:GOSUB34:ELSE119 

115 GOSUB6 

116 IFD$="Y"THENGOSUB7:GOSUB32 : G 
0T0121 

117 IFD$="N"THENGOSUB4:G0T0119 

118 GOSUB75:G0T0115 

119 A$="THE WALLS":H=95:V=60:GOS 
UB34:A$="CLOSE IN <":H=99:V=70:G 
OSUB34:FORX=0TO128:LINE(X,96)-(X 
,191),PSET:LINE(255-X,96)-(255-X 
,191),PSET:NEXT 

120 COLOR0:A$ = "SQUISH<":H=100 : V= 
132:GOSUB34:G0T025 


121 PCLS:DRAW"BM124,0D144BR8U144 

m 

122 X=RND(2):IFX=1 THEN123ELSE12 
7 

123 A$="A RAT<":H=8:V=10:GOSUB3 4 
:A$="BYE ZERO;":H=8:V=20:GOSUB34 

124 DRAW"BM134,150R4F4R2F2R4E4R4 
G6F6D2BL24BU16D4G4R6G4R6G4L8H4D4 
F2D6F4R4":CIRCLE(168,178) ,36, , .6 
2,.68,.52:PAINT(168,178),5,5 

125 DRAW"BM202,172E4U12E8R4G8D12 
G8":PAINT(203,172),5,5:CIRCLE(14 
5,160),3,0,.89:POKER,2:PAINT(145 
,160),,0 

126 F0RY=1T0166:PSET(128,Y,5):PS 
ET(12 8,Y-1,0):F0RT=1T050:NEXT:NE 
XT:IFX=1 THEN25 ELSE128 

127 CIRCLE(128,188),65,,.35:POKE 
R,l:PAINT(128,188),,5:G0T0126 

128 IFEY=1 THENG0T0131 

129 COLOR5:A$="A SAFE LANDING":H 
=6:V=10:GOSUB34 

130 D=1:G0T0136 

131 COLOR5:A$="AGENT EYEBALL":H= 
140:V=10:GOSUB34:A$="TELLS YOU<" 
:H=140:V=20:GOSUB34:A$="DRINK WA 
TER ?":H=4:V=10:GOSUB34 

132 GOSUB6 

133 IFD$="Y"THENGOSUB7:G0T0136 

134 IFD$="N"THENGOSUB4:D=1:GOTOl 
36 

135 GOSUB75:GOTO132 

136 LINE(140,0)—(250,32),PRESET, 
BF:GOSUB31:H=160:V=10:GOSUB34:IF 
D=1 THEN428 

137 A$="YOUR SIZE":H=4:V=20:GOSU 
B34:A$="IS RESTORED<":H=4:V=30:G 
OSUB34:GOSUB32:G0T04 2 8 

138 PMODE4,1:PCLS5:SCREEN1,1:COL 
OR0:LINE(28,60)-(13 2,191),PSET,B 
F:POKER,1:LINE(40,120)-(116,68), 
PSET,BF:COLOR5:LINE(40,132)-(116 
,184),PSET,B:CIRCLE(124,130),5,, 
.95:PAINT(124,130),5,5 

139 A$="JOHNNY":H=44:V=7 9:GOSUB3 
4:A$="ZERO":H=52:V=92:GOSUB34:A$ 
="SPY":H=86:V=116:GOSUB34 

140 DRAWC0BM180,184G8R24E2U6L18 
U52L40D12R40BR18R56U12L56D52BU52 
BL18BU2L12E12D14BU14U30R18D48" 

141 CIRCLE(188,76),12,,.97 

142 DRAW"BM190,66R7L28R14U5R12D5 

ii 

143 CIRCLE(184,72),2:DRAWBM180, 
80C0R6" 

144 POKER,103:PAINT(232,134),,0: 
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PAINT (160,13 2) , ,0 

145 POKER,2:PAINT(188,180),,0:PA 
INT(178,124),,0 

146 PAINT(188,188),$,$:PAINT(185 
,64),0,0 

147 COLOR0 : LINE (0,0)-(255,40) ,PS 
ET,BF:COLOR5:A$ = "PACKAGE FOR":H= 
164:V=8:GOSUB34:A$="JOHNNY ZERO" 
:H=164:V=18:GOSUB34 

148 A$="WANT IT ?":H=8:V=10:GOSU 
B34 

149 GOSUB6 

150 IFD$="Y"THENGOSUB7:JO=l:GOTO 
153 

151 IFD$="N"THENGOSUB4:G0T0369 

152 GOSUB75:G0T0149 

153 GOSUB32:PCLS5:DRAW"C0BM236,1 
87NG4NF4U78HEFG5L2H2BR16G2L2H4" 

154 COLOR0:LINE(160,108)-(208,19 
1),PSET,BF:COLOR5 

155 F0RY=116T0164STEP24:X1=168:X 
2=200:LINE(XI,Y)-(X2,Y+16),PSET, 
B:NEXT 

156 FORY=124TO172STEP24:X1=180:X 
2=188:LINE(XI,Y)-(X2,Y),PSET:NEX 
T 

157 COLOR0:LINE(76,152)-(140,191 
),PSET,B:POKER,1:PAINT(112,156) , 

/ fi 

158 DRAWBM96,152C0U8E8R12F8D8" : 
CIRCLE(110,128),9,,.89:PAINT(112 
,144),0,0:DRAW"BM105,121H4R18F2D 
8G2":PAINT(108,119),0,0 

159 DRAW"BM103,126R2D2U4R4D4L4R4 
U2R2U2D4R4U4L4R4D2R2":PAINT(106, 
125),0,0:PAINT(112,125),0,0:DRAW 
"BM10 8,13 2R4" 

160 LINE(0,0)-(255,76),PSET,BF 

161 POKER,103:LINE(0,96)-(20,191 
),PSET,BF:COLOR0:GOSUB33:LINE(14 
,96)-(20,191),PSET,BF 

162 POKER,103:LINE(20,96)-(30,19 
1),PSET,BF 

163 DRAWBM56,191C0"+PE$ 

164 POKER,2:PAINT(56,104),,0 

165 POKER,1:PAINT(56,150),,0:PAI 
NT(56,182),0,0:DRAW"BM108,132C5R 
4":COLOR0:CIRCLE(110,132),3,,.89 
:PAINT(110,132),0,0 

166 COLOR5:A$="THE PENCIL IS HER 
E<":H=80:V=5 6:GOSUB34:F0RX=1T07: 
PLAYP$:NEXT 

167 IFLP$="1"THENA$="USE PEN ?": 
H=8:V=10:GOSUB34:G0T0173:ELSE168 

168 A$="TRY ESCAPE ?":H=8:V=10:G 
OSUB34 


169 GOSUB6 

170 IFD$="Y"THENGOSUB7:G0T0185 

171 IFD$="N"THENGOSUB4:G0T0182 

172 GOSUB75:G0T0169 

173 GOSUB6 

174 IFD$="Y"THENGOSUB7:G0T0178 

175 IFD$="N"THENGOSUB4:G0T0182 

176 GOSUB75:G0T0173 

177 A$="HE IS DEAD<":H=80:V= 66:G 
OSUB34:DP=1:F0RT=1T015:PLAYP$:NE 
XT:GOTO 369 

178 X=RND(2):IFX=1 THENG0T0181 

179 POKER,2:LINE(48,98)-(64,191) 

,PSET,BF:COLOR5:LINE-(4 8,98) ,PSE 
T, BF 

180 G0T0177 

181 A$="YOU MISS HIM;":H=8:V=20: 
GOSUB34 

182 A$="HE LEADS YOU HAVE IT<":H 
=80:V=66:GOSUB34 

183 COLOR0:LINE(61,123)-(64,128) 

,PSET,BF 

184 FORX=1TO8:FORF=66TO106:COLOR 
0:PSET(F,126,0):PSET(F-l,126,5): 
NEXT:NEXT:GOTO25 

185 X=RND(2):IFX=1THEN369ELSE182 

186 PCLS:COLOR5:DRAW"BM180,160S9 
"+CA$:POKER,1:PAINT(190,159),,5: 
DRAWS4" : DRAW"C5BM25 5,148L32D44B 
U32R32BU8L3 2BD4BR8U2D4R8U4L8BR12 
BD2U2D4R8U4L8" : DRAWBM228,164D24 
R24U24L24" 

187 DRAWBM224,160G8D4R4U4E4BD8B 
L8G4D4R4U4E4BD8BL6F10":PAINT(215 
,177),5,5:POKER,2:PAINT(236,176) 

/ / 5 

188 POKER,1 

189 PAINT(228,157),,5:PAINT(254, 
190),, 5 

190 DRAWC5BM64,191U88L12D88" : PO 
KER,9:PAINT(60,136),,5:DRAW"BM94 
,103C5U32L72D32R72":A$="BOOM GAS 
":H=28:V=84:GOSUB34 

191 A$="WANT GAS ?":H=8:V=10:GOS 
UB34 

192 GOSUB6 

193 IFD$="Y"THENGOSUB7:GOSUB32:G 
0T0196 

194 IFD$="N"THENGOSUB4:GOTO205 

195 GOSUB75:G0T0192 

196 GOSUB24 

197 DRAWS4C5 " : A$="AN EXPLOSION< 
":H=8:V=160:GOSUB34:A$="TOO BAD 
ZERO;":H=8:V=170:GOSUB34 

198 F0RX=1T019:POKER,2:CIRCLE(13 
8,132),X,,.58:PLAYP$:NEXT 
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199 IFDP=1 THEN2J33 

2/3/3 DRAW"S2C5 " : DRAW" BM2 3p, 19j3»+P 

E$ : POKER, Is PAINT (228,17/3) , , 5 : POK 

ER,2:PAINT(228,146),,5 

2/31 DRAW " S 4 C 5 " 

2/32 A$="TOO EASY" : H=155 : V=152 : GO 
SUB3 4: G0T02 J34 

2/33 DRAWS2C5" : DRAW"BM246, 191"+S 

$:POKER, 1: PAINT (24j3,142) , , 5 : DRAW 

"C5S4" :G0T02J32 

2/34 G0T025 

2/35 IFDH=1 THEN224 

2/36 GOSUB32 : F0RX=1T015: PLAYP$: NE 

XT: DRAW" BMlp, 15j3"+H$ 

2/37 POKER, 1: PAINT (13,153) , , 5 : POK 

E178,2:PAINT(21,173),,5 

2/38 COLOR5: A$="THE HAMMER IS HER 

E<":H=60:V=50:GOSUB34 

2/39 LINE(j3,j3)-(12j3,3j3) ,PRESET,BF 

21/3 IFLP$=" 1"THEN211ELSE216 

211 A$="USE PEN ?":H=8:V=10:GOSU 
B34 

212 GOSUB6 

213 IFD$="Y"THENG0SUB7:G0T022j3 

214 IFD$="N"THENGOSUB4:G0T0216 

215 GOSUB7 5:GOTO 212 

216 A$="HE NAILS YOU<" : H=8j3 : V=6J3 
:F0RX=1T05:PLAYP$:NEXT:GOSUB34 

217 WN=WN-7 

218 IFWN<=0 THEN 25 

219 G0T0222 



22/3 POKER,RND ( 4) : LINE ( 8,149) - (4/3 
,191),PSET,BF:LINE-(8,149),PRESE 
T, BF 


221 A$="HE IS DEAD;":H=8J3:V=60:C 
OLOR5:GOSUB34:F0RX=1T05:PLAYP$+» 
G":NEXT:DH=1 

222 GOSUB31:H=17/3:V=8:GOSUB34 

223 GOSUB33 

224 GOSUB24:COLOR5:F0RX=1T02:H=R 
ND(2J3J3) :V=RND(30) :CIRCLE(H,V) ,14 
,,.34:PAINT(H,V),5,5:NEXT 


225 DRAWS4" :A$="YOU CHECK" :H=8: 
V=15p:GOSUB34:A$="YOUR COCO":H=8 
8 : V=15J3 : GOSUB34 

226 A$="FOR CLUES; ":H=8:V=16j3: GO 
SUB 3 4 

227 GOSUB33:PCLS 

228 LINE(162,164)-(214,10J3) , PSET 
,B: LINE (38,1/3/3) - (9 2,16 4) ,PSET,B 

229 DRAWC5BM0, lj38E72RlllF72L254 
" : LINE (72,36)-(78,lj38) ,PSET,BF:L 
INE( 184,3 6) -(178,1/3 8) ,PSET,BF:LI 
NE (j3,164)-(255,164) , PSET 

23/3 F0RX=52T082STEP27:PAINT(X,1J3 
4),5,5:NEXT:FORX=l64T0192STEP27: 
PAINT (X, 1/34) ,5,5: NEXT: POKER, 1: PA 
INT(52,158),,5:PAINT(178,158),,5 

231 COLOR5:DRAW"BM112,116R32D24L 
32U24BD28BR8L8G16R64H16L28":FORX 
=114T0144STEP8:DRAW"BM"+STR$(X) + 
",148D3R3U3L3":PAINT(X+2,148+2), 

, 5 : NEXTX: F0RX=1J36T0148STEP8 : DRAW 
"BM"+STR$(X)+",154D3R3U3L3":PAIN 
T(X+2,154+2),,5:NEXT 

232 IFEC=1 THEN242 

233 F0RY=12J3T0126STEP3 : DRAWC5BM 
116,"+STR$(Y)+"R2 4":NEXT:DRAW"BM 
116,129R2" 

234 F0RX=1T06:PSET(116,132,5):FO 
RT=lT025j3:NEXTT: PRESET (116,132) : 
F0RT=1T03J3J3 : NEXTT: NEXTX: PSET (116 
,132,5) : LINE (114,12J3)-(142,136) , 
PRESET,BF 

235 F0RY=12pT0136STEP3 : DRAWC5BM 
116, "+STR$ (Y) +"R24" :NEXT 

236 A$="A SECRET FILE" : H=8 : V=18J3 
:GOSUB34:A$="ON SPADE ST;":H=124 
:V=18/3 :GOSUB34 

237 A$="FOLLOW LEAD ? " : H=8 : V=1J3 : 
GOSUB34 

238 GOSUB6 

239 IFD$="Y"THENGOSUB7:GOSUB32:G 
0T0261 

24/3 IFD$="N"THENGOSUB4 : GOSUB32 : G 
0T0186 

241 GOSUB7 5:GOTO 238 

242 DRAWBM12J3,12J3D3R5U3L5BR12D3 
R5U3L5BM12J3,128R15D4L15U4" 

243 POKER,2:PAINT(122,122),,5:PA 
INT(134,122) , , 5 : PAINT (125,13/9) , , 
5 

244 COLOR5:A$="AGENT ECB IS HERE 
< ":H=8:V=172:GOSUB34:F0RT=1T015: 
PLAYP$:NEXT 

245 IFLP$="1"THEN246ELSE251 

246 A$="USE PEN ?" :H=8 : V=lj3: GOSU 
B34 
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247 G0SUB6 

248 IFD$="Y"THENG0SUB7:G0T0256 

249 IFD$="N"THENG0SUB4:G0T0251 

250 GOSUB75:G0T0247 

251 IFAG$="1"THEN258ELSE256 

252 G0SUB6 

253 IFD$="Y"THENG0SUB7:G0T0257 

254 IFD$="N"THENG0SUB4:G0T0256 

255 GOSUB75:G0T0252 

256 A$="HE GOSUBS YOU WITHOUT RE 
TURN<":H=8:V=182:GOSUB34:F0RX=1T 
012 : PLAY ,, 05T5ECB" : NEXT: G0T025 

257 G0T0259 

258 LINE (0,0) - (120,20),PRESET,BF 
:A$="USE GUN ?":H=8:V=10:GOSUB34 
:G0T0252 

259 POKER,RND(4):LINE(102,112)-( 
150,142),PSET,BF:LINE-(102,112) , 
PRESET,BF:F0RX=1T015:PLAYP$:NEXT 

260 F0RT=1T015:PLAYP$+"05G":NEXT 
:A$="HE EXPLODES<":H=150:V=10:DR 
AW"C5"IGOSUB34IG0T0426 

261 PCLS5:DRAW"C0BM14,191U48R60D 
48BU4 8BL12U8L3 6D8U8L12U12R60D12L 
12BD20U4D8L12U8R12BL2 4D8L12U8R12 
BD20R12D20L12U20":CIRCLE(42,182) 

/ 1 / 0 

262 CIRCLE(62,184),7,0,1.6,.30,. 
75:CIRCLE(62,184),7,0,1.6,.75,.1 
8:CIRCLE(26,184),7,0,1.6,.30,.75 
:CIRCLE(26,184),7,0,1.6,.75,.30 

263 PAINT(52,128),0,0:C0L0R5:A$= 
"SHOES":H=26:V=13 2:GOSUB34:POKER 
,178:PAINT(70,148),,0 

264 DRAW"C0BM82,191U44R56D44BU22 
BL8U8L12D8R12L6U8D4R6L12BL14U4D8 
L12U8R12D4L12R6U4D8BM104,191U14R 
12D14L12":CIRCLE(108,184),1,0:PO 
KER,23:PAINT(108,170),,0 

265 DRAW"C0BM94,146U4L8U12R50D12 
L8D4U4L40":PAINT(98,140),0,0:A$= 
"TACOS »:H=92:V=140:C0L0R5:G0SUB3 
4 

266 DRAW"C0BM144,191U100R60D100" 
:FORX=108TO172STEP2 4:F0RG=152T01 
82STEP30:DRAW"C0BM"+STR$(G)+ ","+ 
STR$(X)+"R12D12L12U12":PAINT(G+2 
,X+2),0,0:NEXTG,X 

267 POKER,1:PAINT(176,174),,0:DR 
AW"BM143,98C0L4U12R70D12L4":PAIN 
T (142,96) ,0,0 

268 DRAW"BM24 6,182C0S3"+CA$:POKE 
R, 1:PAINT(246,186) , ,0 

269 DRAW"S4C0BM206,116R16D4G8D49 
L4U49E8L12":FORX=206TO222STEP3:D 
RAW"C0BM"+STR$(X)+",116D4":NEXT: 


F0RY=128T0178STEP3:DRAW"C0BM210, 
"+STR$(Y)+"R4":NEXT 

270 LINE(0,0)-(255,46),PSET,BF:C 
0L0R5:A$="CLIMB STEPS ?":H=8:V=1 
0:G0SUB3 4 

271 G0SUB6 

272 IFD$="Y"THENG0SUB7:G0T0277 

273 IFD$="N"THENG0SUB4:G0T0276 

274 GOSUB75:G0T0271 

275 G0SUB32:COLOR0:LINE(0,0)-(25 
5,40),PSET,BF:A$="YOU CRUISE TO 
YOUR OFFICE ?":H=8:V=10:C0L0R5:GO 
SUB34:GOSUB 3 3:GOTO138 

276 IFCS=1 OR J0=1 THEN369 ELSE2 
75 

277 G0SUB32:PCLS:C0L0R5:LINE(124 
,48)-(255,191),PSET,BF 

278 COLOR0:LINE(172,116)-(228,19 
1),PSET,B:POKER,1:PAINT(204,118) 

/ /P 

279 DRAW"C0BM221,149D12" 

280 IFZZ=1 THEN340 

281 DRAW"BM48,64C5D127BR32U127" 

282 DRAW"BM76,120S3"+S$ 

283 POKER,1:PAINT(60,54),,5:POKE 
R, 3 

284 FORY=120TO191STEP14:DRAW"BM4 
8,"+STR$(Y)+"R40":NEXT:FORY=66TO 
88STEP14:DRAW"BM7 9,"+STR$(Y)+"L1 
4 ":NEXT:DRAW"BM57,105R6BR8R11":D 
RAW"BM48,80R16 

285 DRAW"BM47,90R4L4H12G6BE1H6G2 
H4E8F4G2F6BG7F14R10" 

286 COLORS:LINE(0,68)-(24,191),P 
SET,BF 

287 A$="A STRANGE":H=145:V=8:DRA 
W"S4":G0SUB34:A$="FELLOW PAINTS ? 
":H=14 5:V=18:GOSUB34 

288 A$--"OPEN DOOR: ?" : H=8 : V=10 : GO 
SUB34 

289 G0SUB6 

290 IFD$="Y"THENG0SUB7:G0T0298 

291 IFD$="N"THENG0SUB4:G0T0293 

292 G0SUB75:G0T0289 

293 GOSUB32:LINE(0,0)”(255,40),P 
RESET,BF 

294 A$="HEH HEH":H=5:V=48:G0SUB3 
4 

295 A$="I KNOW YOU AGENT SPADE<" 
:H=8:V=20:GOSUB34 

296 G0SUB31:H=150:V=46:G0SUB34 

297 GOTO355 

298 G0SUB32:PCLS5:COLOR0:LINE(16 
0,108)-(208,191),PSET,BF:C0L0R5 

299 F0RY=116T0164STEP24:X1=168:X 
2=200:LINE(XI,Y)-(X2,Y+16),PSET, 
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BlNEXT 

300 FORY=124TO172STEP24:X1=180:X 
2=18 8:LINE(XI,Y)-(X2,Y),PSET:NEX 
T 

301 DRAW"BM82,191C0U40BF6D34BM14 
6,191U40BG6L51BH6R63BG6D34":POKE 
R, 1:PAINT(96,154),,0 

302 DRAWBM72,191C0U20L20U24L4D4 
4R4U16R16D16R4L4H16BD16E16" : PAIN 
T(50,190) ,0,0 

303 DRAW"BM84,80D40R64U40L64":PO 
KER,1:PAINT(116,96),,0:DRAW"BM11 
7,120C0U40":DRAW"BM84,100R64" 

304 DRAW"BM20,56D16R20U16L20":FO 
RX=58T070STEP2:DRAW"BM20,"+STR$( 
X) + " C0R2 0 " : NEXT: X=RND (2) 

305 IFX=2 THEN329 ELSE306 

306 DRAW"C0BM112,126"+SA$:PAINT( 
110,134),,0:PSET(108,136,5):PSET 
(114,136,5) 

307 DRAW"C0BM14,166"+SA$:PAINT(1 
4,174),0,0:PSET(10,176,5):PSET(1 

6.176.5) 

308 DRAW"C0BM18 4,8 3"+SA$:PAINT(1 
84,86),0,0:PSET(180,93,5):PSET(1 

86.93.5) 

309 COLOR0:LINE(0,0)-(255,40),PS 
ET, BF 

310 COLOR5:A$="SPADE MUTANTS<":H 
= 142:V=3 8:GOSUB3 4 

311 IFLP$="1"THEN312ELSE317 

312 A$="USE PEN ?»:H=8:V=10:GOSU 
B34 

313 GOSUB6 

314 IFD$="Y"THENG0SUB7:G0T0324 

315 IFD$="N"THENGOSUB4:GOSUB318: 
G0T0317 

316 GOSUB7 5:GOTO 313 

317 IFAG$="1"THEN319 ELSE324 

318 COLOR0:LINE(0,0)-(130,26),PS 
ET,BF:COLOR5:RETURN 

319 A$="USE GUN ?":H=8:V=10:GOSU 
B34 

320 GOSUB6 

321 IFD$="Y"THENGOSUB7:G0T0328 

322 IFD$="N"THENGOSUB4:G0T0324 

323 GOSUB75:GOTO320 

324 COLOR0:LINE(0,0)-(130,26),PS 
ET,BF:COLOR5:A$="THEY ATTACK<":H 
=8:V=10:GOSUB34:GOSUB31:H=8:V=2 4 
:GOSUB34:A$="WOUNDED;":H=8:V=3 4: 
GOSUB34:FORX=1TO10:PLAYP$+"D-":N 
EXT:AO=l 

325 WN=WN-3 

326 IFWN<=0 THEN25 

327 GOTO337 


328 GOSUB318:A$="YOU ZAP THEM<": 
H=8:V=10:GOSUB34:GOSUB3 2:F0RT=1T 
09:PLAYP$:NEXT:C0L0R5:LINE(2,16 4 
)-(2 6,191),PSET,BF:LINE(100,126) 
-(124,150),PSET,BF:LINE(170,83)- 
(199,107) ,PS ET,BF:GOTO 3 3 3 

329 LINE(0,0)-(255,46),PSET,BF:F 
0RX=1T025:PSET(RND(2 5)+30,RND(15 
)+60,0):PLAY"05T15A":FORT=1TO200 
:NEXTT:NEXT 

330 A$="POISON GAS FILLS THE ROO 
M;":H=8:V=10:C0L0R5::GOSUB3 4 

331 A$="YOU PASS OUT;":H=8:V=20: 
GOSUB34 

332 G0T0356 

333 PAINT(196,128),5,5:COLOR0:LI 
NE(0,0)-(255,40),PSET,BF 

334 LINE(176,120)-(194,132),PSET 
,B:POKER,2:PAINT(180,126),,0:DRA 
W"BM176,124C0R18" 

335 C0L0R5:A$="THE FILE<":H=8:V= 
10:GOSUB34:A$="INSIDE IS THE LOC 
ATION OF":H=8:V=20:GOSUB34:A$="T 
HE BUTTON;":H=8:V=30:G0SUB34 

336 G0SUB31:H=150:V=38:G0SUB3 4:G 
OSUB33:A0=1 

337 EC=1:ZZ=1:G0T0277 

338 G0T0338 

339 C$="":F0RA=1T0LEN(A$):M$=MID 
$(A$,A,1):B=ASC(M$)-58:C$=C$+L$( 
B) + "BR4":NEXT:DRAW"BM" +1$+C $:RET 
URN 

340 DRAW"BM165,191S3C0" + S$: PAINT 
(153,180) ,0,0 : POKER, 1: PAINT(154, 
128) ,,0 

341 C0L0R5:A$="AGENT SPADE ATTAC 
KS YOU<":H=8:V=4 6:DRAW"S 4":GOSUB 
34 

342 A$="FIGHT HIM ?":H=8:V=10:GO 
SUB34 

343 G0SUB6 

344 IFD$="Y"THENG0SUB7:G0T0354 

345 IFD$="N"THENG0SUB4:G0T0349 

346 G0SUB75:GOTO343 

347 GOSUB32:A$="YOUR ACID GUN":H 
=5:V=128:GOSUB34 

348 A$="WOUNDS HIM<":H=5:V=13 8:G 
0SUB34:SW=1:GOTO 352 

349 A$="HE WOUNDS YOU;":H=5:V=12 
8:GOSUB34 

350 WN=WN-7 

351 IFWN<=0 THEN25 

352 G0SUB31:H=5:V=170:G0SUB3 4:A$ 
="T0 YOUR CAR<":H=5:V=180:G0SUB3 
4 

353 G0T0227 
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354 IFAG$="1"THEN347 ELSE349 383 PLAY"T2P505DE04P5FDP504A03FA 

355 GOSUB32:G0T0261 

356 GOSUB32:PCLS:CIRCLE(164,158) 384 F0RX=1T055:POKER,RND(2):LINE 

,70,5,.60:CIRCLE(154,112),14,5,1 (128,120)-(144,124),PSET,BF:NEXT 

.39,.45,.06 385 COLORS:LINE(128,124)-(144,19 

357 DRAW"BM143,106L12D8R12" 1),PSET,BF:DRAW"C0BM132,191U68BR 

358 DRAWBM150,14 4H10G10R20BR30E 8D68" : F0RY=12 6T0191STEP8 : DRAWBM 

10F10L20BG12BL4G6R12H6BG19BL12D1 132,"+STR$(Y)+"R8":NEXT 

2E8F8E8F8E8F8E8F8U20L64D8" 386 A$="YOU DESCENDH=154:V=14 

359 POKER,2:PAINT(164,188),,5 8:DRAW"C5 11 :GOSUB34:GOSUB32 

360 FORX=130TO198STEP5:LINE(X,16 387 PCLS5 

5) -(X,188),PSET:NEXT 388 LINE(184,140)-(255,191),PRES 

361 PAINT(154,112),,5 ET,BF:F0RY=148T0188STEP24:LINE(1 

362 DRAW"BM88,190S2C5"+S$:POKER, 92,Y)-(248,Y+16),PSET,B:NEXT 

1:PAINT(82,148),,5:DRAW"C5" 389 DRAW"BM206,156C5R28BD24L28": 

363 IFDH=1 THEN365 DRAW"BM148,120C0G12F12E12H12BD20 

364 DRAW"BM38,162S3"+H$:POKER,2: BL4G20F24E24H20BD40BE8 

PAINT(46,186),,5:POKER,1:PAINT(4 390 POKER,1:PAINT(148,124),,0:PA 

6,166),,5:DRAW"C 5" INT(148,176),,0 

365 IFDP=1 THEN367 391 PSET(145,130,0):PSET(151,130 

366 DRAW"BM20,190S2"+PE$:POKER,1 ,0):DRAW"BM145,136C0R5" 

:PAINT(20,170),,5:POKER,2:PAINT( 392 DRAW"BM112,191C0U32L64D32BR4 

20,148),,5 U28R56D28 

367 A$="YOU AWAKEN IN THE PUMPKI 393 DRAW"BM56,158U28R16D28BU12R1 

N CELL;":H=2:V=10:DRAW"C5S4":GOS 2F8R8D4 

UB34 394 PAINT(51,191) ,0,0 

368 A$="FOOD FOR THE WORM MAN<": 395 POKER,6:PAINT(64,140),,0:POK 

H=2:V=20:GOSUB3 4:G0T025 ER, 1:PAINT(84,152),,0 

369 GOSUB33:GOSUB24 396 COLOR0:LINE(0,0)-(255,58),PS 

370 A$="YOU HEAD TO THE DIAMOND; 

":H=8:V=150:DRAW"C5S4":GOSUB34:A 
$="HE MAY HAVE INFORMATION":H=8: 

V=160:GOSUB34 

371 A$="ABOUT AGENT EYEBALL;":H= 

8:V=17 0:GOSUB34:GOSUB33 

372 PCLS:DRAW"BM0,136R255BM255,3 
6L124G24R52NR96ND60BD60L16D4L16U 
4R16L44G16R76BU16R96L72U52L24 

373 POKER,2:PAINT(120,56),,5 

374 POKER,1:PAINT(172,96),,5 

375 DRAW"C5":LINE(164,88)-(172,9 

6) ,PSET,BF:F0RX=165T0174STEP3:FO 
RY=89T095STEP2:COLOR0:PSET(X,Y,0 
):NEXTY,X 

376 DRAW"BM66,121C5S5;XCA$;":POK 
ER,1:PAINT(70,118),,5 

377 A$="YOU KNOW THE SECRET ENTE 
RANCE":H= 6:V=14 6:DRAW"C 5 S 4":GOSU 
B34:A$="CODE;":H=6:V=156:GOSUB34 

378 GOSUB33:LINE(0,140)-(255,168 
),PRESET,BF:A$="INPUT CODE ?":H= 

8:V=10:GOSUB34 

379 GOSUB6 

380 IFD$="Y"THENGOSUB7:G0T0383 

381 IFD$="N"THENGOSUB4:G0T0224 

382 GOSUB75:GOTO379 
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ET,BF 

397 IFCS=1 ANDAG$="1" THEN418 

398 IFCS=1 ANDDP=1 THEN418 

399 X=RND(2) 

4)3)3 IFX=1 THEN410 
4)31 C0L0R5: A$="HE OFFERS AN ACID 
GUN;":H=8:V=54:GOSUB34 
4)32 GOSUB32 : LINE (192,148)-(248,1 
64),PSET,BF 

4)33 DRAW"BM212,162C0U5E4U2F4R12F 

2G2L12G2D2L6 

4)34 PAINT(214,16)3) ,0,0 

405 COLOR5: A$="WANT GUN ?":H=8:V 

=1)3: GOSUB34 

4)36 GOSUB6 

4)37 IFD$=" Y"THENGOSUB7 : AG$=" 1" : G 
0T0418 

4)38 IFD$="N"THENGOSUB4 : G0T0418 
4)39 GOSUB75 : G0T04)36 

41) 3 IFDP=1 THEN4)31 

411 DRAW"BM24,191"+PE$:PAINT(24, 
182) ,)3,)3: POKER, 1: PAINT(24,16)3) , , 
)3: POKER, 2: PAINT (24,1)32) , ,)3 

412 F0RX=1T015:PLAYP$:NEXT:A$="T 
HE PENCIL" : H=15)3: V=l)3 : COLOR5: GOS 
UB34:A$="SORRY ZERO; HE FORCED 
ME<":H=8:V=5 2:GOSUB34 

413 A$="FIGHT HIM ?" :H=8 : V=l)3: GO 
SUB34 

414 GOSUB6 

415 IFD$="Y"THENG0SUB7:G0T042)3 

416 IFD$="N"THENGOSUB4:G0T0423 

417 GOSUB75:G0T0414 

418 A$="AGENT EYEBALL IS CAPTURE 
D" : H=8 : V=3)3: COLOR5: GOSUB3 4: A$="F 
REE HIM< " : H=8 ; V=4)3 : GOSUB3 4 

419 CS=1:G0T0223 

42) 3 IFLP$="1"THEN421 ELSE423 

421 COLOR)3: LINE ()3, )3) - (255,58) , PS 
ET,BF:A$="YOUR LASER PEN KILLS H 
IM<" : H=8 : V=l)3: COLOR5: GOSUB3 4 : DP= 
1 

422 F0RX=1T015:PLAYP$+"05G":NEXT 
:COLOR5:LINE(15,9 4)-(3 8,191),PSE 
T,BF:G0T0396 

423 COLOR)3 : LINE ()3,)3) - (255,58) , PS 
ET,BF:A$="HE LEADS YOU HAVE IT<" 
: H=8 : V=l)3: COLOR5: GOSUB34 

424 F0RX=1T015:PLAYP$:NEXT:GOSUB 
31:H=8 : V=2)3: GOSUB34 : A$="WOUNDED; 
":H=H+7:GOSUB34:WN=WN-7:CS=1 

425 IFWN<=)3 THEN25 ELSE22 3 

426 GOSUB32:PCLS:G0T0427 

427 GOTO51 

428 GOSUB33:PCLS:W$="D4R4U4L4BU4 
L4G8D4F2E2F2E2F2E2F4D4H2G2H2G2H2 


G2F4R12E4R4F4D2)3G36D16G4D4E4R4F2 

E2R4F4U4H4U12E24D32G8D12F8" 

429 W1$="R44E8U24E4R4E4U4E4F8U8H 
12G4D8G4L12G4D28G4L28H4U4E8U32E3 
2U28E4U4G4L4H2G2L4H4D4F4D24G2)3U2 
4H24L8":DRAW"BM128,72"+W$+Wl$ 

43) 3 POKER, 2 : PAINT (15 6,144) , ,5 

431 COLOR5:A$="THE WORM MAN":H=1 
4 4: V=l)3 : GOSUB3 4 

432 IFD=1 THEN438 

433 A$="TAKE PILLS ?" : H=8 : V=l)3 : G 
OSUB34 

434 GOSUB6 

435 IFD$="Y"THENGOSUB7:G0T0443 

436 IFD$="N n THENGOSUB4:G0T0445 

437 GOSUB75:GOTO434 

438 A$="FIGHT HIM ?" :H=8 : V=l)3 : GO 
SUB34 

439 GOSUB6 

44) 3 IFD$="Y"THENGOSUB7 : G0T0443 

441 IFD$="N n THENGOSUB4:G0T0443 

442 GOSUB75:G0T0439 

443 F0RX=1T0118:PSET(X,188,5):PS 
ET (X-l, 18 8, )3) : F0RT=1T02)3 : NEXTT: N 
EXT 

444 A$="OH NO<" : H=3)3 : V=178 : GOSUB 
34:G0T025 

445 GOSUB32 : PCLS : DRAW"BM128,13)3S 
2"+W$+W1$:POKER,2:PAINT(127,133) 

t 

446 A$="YOU TOSS HIM A SHRINK PI 
LL;" :H=8: V=1 )3: DRAW"C5S4" : GOSUB34 

447 A$="HE EATS IT AND SHRINKS;" 
; H=8 : V=2)3: GOSUB3 4 

448 A$="YOU PASS EASILY;":H=8:V= 
5)3: GOSUB34 

449 GOSUB33:PCLS 

45) 3 DRAW"BM252,191H4U2)3BL8E2H2U1 
2H4U4L28D4G4D12G2F2R28H4L12G4BR2 
)3R8BR8U24H12L28G12D44G4 

451 DRAW"BM172,12)3D32R8U36H8U4BL 
12D4L4G4L28G2F2G2F2R24F4BR8D8R8U 
8L8BF3D2R2U2L2BH3BL8D48E8D28L12E 
2R6U22BE4E4F2D3)3R12H2L6U24H4BF4F 
4U16 

452 LINE(64,156)-(124,191),PSET, 
B:LINE(76,164) -(112,18 4) ,PSET,B 

453 CIRCLE(166,96),15,,.68:CIRCL 
E (161,94) ,3 ,, .96: CIRCLE (17)3,94) , 
3 , ,.96:DRAW"BM164,86U4R3D4 

454 CIRCLE(94,174),5 

455 DRAW"BM162,99C5R8D3L8U3" 

456 POKER,1:PAINT(228,191),,5:PA 
INT(164,116),,5:POKER,2:PAINT(16 
2,90),,5 

457 DRAW"BM98,174C5R10" 
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458 A$="AGENT ORANGE":H=14 0:V=9 : 
GOSUB34 

459 IF LP$="1"THEN460ELSE465 

460 A$="FIGHT HIM ?":H=8:V=10:GO 
SUB34 

461 GOSUB6 

462 IFD$="Y"THENGOSUB7:G0T0467 

463 IFD$="N"THENGOSUB4:G0T0465 

464 GOSUB75:GOTO461 

4 65 POKER, 2 : FORX=116TO0STEP-1: LI 
NE(X,112)-(X,120) , PSET,BF:NEXT 

466 COLOR5:A$="GOODBYE ZERO;":H= 
92:V=7 2:GOSUB34:G0T025 

467 FORX=0TO160 :POKER, 2 : LINE (X, 1 
28) - (X, 128) , PSET: IFPPOINT (16)3,12 
8)0,0 THENNEXT: G0T0468 ELSENEXT 

468 F0RX=1T029:LINE(160,128)-(RN 
D(255) , RND ( 60) +5)3) , PSET: PLAY"T30 
5A":NEXT 

469 A$="YOUR LASER HITS HIS ENER 
GY":H=8:V=30:C0L0R5:GOSUB34:A$=" 
CELL<" : H=8 : V=4)3: G0SUB3 4 

470 GOSUB33:LINE(0,0)-(255,130), 
PRESET,BF:LINE(144,129)-(184,191 
),PRESET,BF 

471 IFDS=1 AND AG $= 11 1 11 THEN 481 

4 7 2 DRAW"BM52,190S3"+S$:C0L0R5:A 
$="AGENT SPADE":H=156:V=9:DRAW'S 
4":POKER,1:PAINT(28,124),,5:COLO 
R5:G0SUB3 4 

473 IFAG$="1"THENA$="FIGHT HIM ? 
":H=8:V=10:GOSUB34:ELSE480 

474 G0SUB6 

475 IFD$="Y"THENG0SUB7:G0T0478 

476 IFD$="N"THENG0SUB4:GOTO480 

477 GOSUB75:G0T0474 

478 IFAG$="1"THEN479 ELSE480 

479 IFSW=1 THENA$="THE ACID GUN 
KILLS HIM<":H=8:V=20:GOSUB34:LIN 
E( 2,110)-(58,191),PRESET,BF:FORX 
=1TO10:PLAYP$:NEXT:GOTO 481 

480 A$="BYE ZERO;":H=8:V=20:GOSU 
B34:G0T025 

481 LINE(0,0)-(255,46),PRESET,BF 
:A$="IT OPENS":H=52:V=140:G0SUB3 
4:A$="YOU RESCUED THE BUTTON<":H 
=38:V=4 8:G0SUB3 4 

482 C0L0R5:LINE(76,164)-(112,184 
),PSET,BF:CIRCLE(94,174),9,0,.95 
:PAINT(94,174),0,0:PSET(92,172,5 
):PSET(96,172,5) 

483 F0RX=1T016:PLAYP$+"05G":NEXT 

484 H=3 8:V=9:G0SUB31:G0SUB34:A$= 
"IN THE POD<":GOSUB34 

485 A$="GOOD JOB JOHNNY ZERO<":: 


H=44:V=30:G0SUB34:F0RT=1T04:PLAY 
Pl$:NEXT:G0T025 ^ 
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THE 

^WORD 

THE SORCERER 


Program by Chris McKernan 


G 


rowing up as an orphan is a difficult enough 
task for any child to endure. But an orphan in 
the village of Ling Shai faces an even more 
monumental challenge, for in Ling Shai is the 
castle of the evil and immortal Sorcerer. The 
Sorcerer and his countless spells endanger the 
freedom of everyone, especially vulnerable little 
children. 

Fortunately, you were taken in at the age of 
4, by the man known in the village as the 
Wizard. His great knowledge of spells and 
counterspells have preserved the people of Ling 
Shai from the enslavement of the Sorcerer, and 
the villagers maintained faith that through his 
invaluable powers, he would someday find a 
way to eliminate the abominable force. 

For the next 20 years, the Wizard, with you 
as his protege, continued to scrutinize the 
secrets to defeating the Sorcerer. However, time 
was slipping away as the menacing madman 
had already enthralled many of the surrounding 
villages. 
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Meanwhile, the Wizard was growing very old and weak. A hard winter was 
approaching and you knew the time would eventually come when the Wizard 
could no longer deal with the Sorcerer and it would become your responsibility. 

On the last night of the summer, just before daybreak, you are awakened 
by the Wizard. Speaking not a word, his trembling finger summons you as he 
walks out into the darkness. Following deep into the pitch black forest, the 
breeze is cool and adensemistyfoghangs overhead. The old man knows exactly 
where he is going and not a word is spoken until he reaches his destination. 

Finally, at the foot of a huge stone, the Wizard mutters a request and has 
you pile a bed of leaves next to the stone. He then lowers himself onto them 
and motions you closer. 

On your knees next to the great Wizard, you look into his eyes, illuminated 
by the rising sun. His entire face begins to glow as he clasps your hand tightly 
and begins to speak. 

“Fear not the evil you face in your future. For you have been chosen to deliver 
the people from the evil Sorcerer. Eighty-three years ago, a spell was cast upon 
me and the Sorcerer seized a powerful ring brought forth to me on this same 
morning of the autumnal equinox. During this magical moment, as the sun 
crossed the equator, making night and day of equal lengths in all parts of the 
Earth, I received the ring and my mystical powers, transferred to me from my 
father. Unfortunately, I have failed in my lifetime to conquer the evil Sorcerer. 
Meanwhile, he continues to capture the souls of our people, one by one, 
enslaving them to worship his eternal power. 

“The Sorcerer must be destroyed and that is now your task. You have learned 
well and have reached a period of maturity. It is the dawn of new beginnings 
and the time has come for you to obtain my powers. 

“Remember the things I have taught you. You must go to the castle of the 
evil Sorcerer and find the powerful ring called Equinox. It holds many secrets 
and will be invaluable in your search for the Sorcerer. The sword named 
Excalabir will provide you with protection and the Shield from Darkness will 
give you faith in defeating the evil Sorcerer. Then, and only then, may the task 
be completed. However, you must keep in mind, the Sorcerer will always have 
the ability to . . .” 

But before finishing, a brilliant, swirling cloud swoops down from the sky, 
engulfing the wizard as the sun begins to rise. Quickly backing away, you watch 
as the tornado-like winds whirl leaves around his body. Then in a puff of white 
smoke, the winds cease and the leaves come to rest in a pile. But the old man’s 
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body has disappeared. You rummage frantically through the pile to no avail. 
He is gone. 

The Wizard’s final words remain a mystery, but you know what must be done. 
His wisdom and power live on inside of you, and most of all, his determination 
to end the reign of the Sorcerer. It will be no easy task, but you must succeed. 

The Sword and the Sorcerer is a four-part graphics Adventure. Each part 
is linked to the next, making it an Adventure of an Adventure. 

Part I: In Search of the Ring 

The Adventure begins in the castle of the Sorcerer and you must find the 
ring called Equinox. 

Part II: The Quest for Excalabir 

The second part begins where part one leaves off, in the Room of the Equinox. 
You will have the ring in your possession and your objective is to locate the 
sword, Excalabir. 

Part III: Journey for the Shield of Darkness 

This will be your final quest before meeting the powerful Sorcerer. You will 
begin in the Room of the Sword, and both the ring and the sword are in your 
possession. You must now find the shield. 

Part IV: The Final Battle 

The last Adventure takes place in one room. You must now defeat the Sorcerer 
by gaining energy points using the weapons gathered in the first three 
Adventures. 

The fight against the Sorcerer will be a one-on-one battle. You must first enter 
a command such as USE SWORD. The Sorcerer will then enter a command such 
as USE FORCE FIELD. In this example, the Sorcerer protects himself against your 
attack with the sword. If you feel the Sorcerer is about to attack with a spell, 
use the sword. 

Each command has a different effect, such as providing defense while 
attacking, and you will have to discover the best methods of destroying the 
evil Sorcerer. There are several commands available and many different ways 
to gain energy points from the Sorcerer’s blow. 

After defeating him you must escape the Sorcerer’s castle by opening the 


87 




golden doors to safety. Be sure to save enough energy to escape the castle. 

Playing Instructions 

Due to memory limitations, the disk controller must be unplugged during 
game play to avoid getting an OM Error. 

The Sword and the Sorcerer consists of four BASIC program listings: 
EQUINOX, EXCALABR, SHIELD and SORCERER, and the Adventures must be played 
and solved in order. After each program is run, a title screen will appear. Press 
ENTER and the playing instructions will follow. Press ENTER again and the 
Adventure will begin. 

All four parts of The Sword and the Sorcerer are played in the same manner. 
Each Adventure accepts different verbs and a verb list is displayed by typing 
VOC. (The VOC command is not included in Part 4: SORCERER.) Note: The verbs 
SWIM and QUIT may also be used in Part One, but are not included in the printed 
list. 

Directions must be entered in abbreviated form: N, S, E, W, U and D. NORTH 
or GO NORTH are not understood and will not be accepted. 

The current inventory you are carrying will be displayed by typing 
INVENTORY, INVENT, INV or simply I. The LOOK command gives you a picture 
and a description of the room you are in, and may also be abbreviated by simply 
typing L. The ROOM or R command is used to examine the room for objects. 

Note: If a typing mistake is made when entering commands, do not use the 
backspace or an SN Error will occur. To avoid this problem, simply press 
ENTER and input the command again. 

Pay close attention to the hints given at the beginning of each Adventure. 
If understood, they may save your life. 


Chris McKernan’s interests include the Co Co, the RAINBOW and lasers, 
and he is currently working on a Co Co controlled lens for lasers, making 
computer imagery possible. Questions or comments may be addressed to 
Chris at 2369 Madison, Apt. 9, Montreal, Quebec H4B2TS. Please enclose 
an SASE when requesting a reply. 
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EQUINOX 32K ECB 


THE 

SWORD 

AND 

THE 

SORCERER 
PRRT ONE 

IN SEARCH OF THE RING 
PROGRAMMED BY CHRIS MCKERNAN. 


10 CLEAR 100:DIM R$(20),0(20,8), 
1(8) 

20 DIM N$ (2 8) ,A$(10) 

30 POKE 65495,1 

40 FORX=0 TO 2 8:READ N$(X):NEXT 
50 FOR X=0 TO 10:READ A$(X):NEXT 
60 PMODE4,1:COLOR1,0:PCLS:SCREEN 
1,1:POKE 65314,255 
70 DRAW"BM70,40;C3;S12;XN$(19) ;B 
M+7,0;XN $(2 3) ;BM+7,0;XN$(15);BM+ 
7,0;XN $(18);BM+7,0;XN$(4);» 

80 DRAWBM100,16;C3 ;S8 ;XN$ (20) ;B 
M+7,0;XN$(8);BM+7,0;XN$(5) 

90 F0RX=1T05:PLAY "L2 55AAABBBAAA 
BBBAAADDD":NEXTX 

100 DRAW"BM110,60;C3;S4;XN$(1);B 
M+8,0;XN$(14);BM+8,0;XN$(4);" 

110 DRAW M BM100,80;C3;S8;XN$(20)7 
BM+7,0;XN $(8);BM+7,0;XN$(5) 

120 DRAW" BM40,10 4 ; S12 ; XN $ (19) ; BM 
+7,0;XN $(15);BM+7,0;XN $(18) ;BM+7 
,0;XN $(3);BM+7,0;XN$(5);BM+7,0;X 
N$(18);BM+7,0;XN $(5);BM+7,0;XN$( 
18) 7" 

130 DRAW"BM40,13 4 7 Cl7 XN$ (16) ,*BM+ 
7,07 XN $ (1) 7 BM+7,0 7 XN $(18) 7BM+7,0 
7 XN $(20) 7 BM+13,0 7 XN$(15) 7BM+7,07 
XN$(14) 7 BM+7,0 7 XN $(5) 7" 

140 DRAW"BM20,1607C17S47" 

150 FOR X=1 TO 21 

160 READ DT:IF DT=0 THEN DRAW'BM 

+13,07":NEXTX:GOTO200 

170 DRAW"XN$(DT)7BM+9,07" 

180 SOUND X,1:NEXT X 
190 DRAW"BM0,180 7":S$ = " PROGRA 

MMED BY CHRIS MCKERNAN.":GOSUB10 
60 

200 IF INKEY$= ,,m THEN 200 

210 PMODE4,l:COLOR0,l:PCLS:SCREE 

Nl, 1 

220 S$="THE ADVENTURE BEGINS IN 


THE CASTLE OF THE SORCERER. 

HE IS NOWHERE TO BE FOUN 

D BUT YOU REMEMBER YOUR TEACHE 
RS LESSONS ABOUT A LEGEND 0 

F A POWERFUL RING CALLED EQU 

INOX." 

230 DRAW"BM0,07" 

240 L=0 

250 FOR X=1 TO LEN(S$) 

260 A$=MID$(S$,X,1):A=ASC(A$)-64 
270 IF A=-18 THEN A=27 
280 L=L+l:IF L=33 THEN L=1:DRAW" 
BM-249,+10 7" 

290 IF A=32 OR A=-32 THEN DRAW" 
BM+7,07":NEXT X:GOTO 310 
300 DRAW"XN$(A)7BM+7,07":NEXT X 
310 S$=" IN THIS ADVENTURE YOU 

WILL BE SEARCHING FOR THAT RI 

NG. IT HOLDS MANY SECRETS 

AND WILL BE INVALUABLE IN YOUR 

SEARCH FOR THE SORCERER. 


320 Z=Z+1:IF Z=1 THEN 250 
330 S$=" XXXXXXXXXXXXXXXXXXXXXX 
XXXXXX XX HERE IS THE HINT FO 
R XX XX ADVENTURE PART ONE 

XX XX PEOPLE ARE NOT ALWA 

YS XX XX HELPFUL 

XX XXXXXXXXXXXXXXXXXXXXXX 

XXXXXX" 

340 z=z+l: IF Z=3 THEN 250 

350 IF INKEY$="" THEN 350 ELSE S 

OUND 100,1 

360 PCLS:SCREEN1,1 

370 R$ (1) = 11 YOU ARE IN AN OLD DUS 

TY BLACK MAGIC ROOM. THERE IS 

A RUG AND A FIREPLACE HERE." 

380 R$ (2) =** YOU ARE NOW IN AN EMP 
TY ROOM. THE WALLS VIBRATE WIT 
H MUSIC. THERE IS A DOOR ABOVE 
YOU." 

390 R$(3)="YOU ARE ON A LONG SMO 
OTH FIELD REACHING OUT ALMOST A 
S FAR AS THE EYE CAN SEE." 

400 R$(4)="YOU ARE ON A SMOOTH F 
IELD THERE SEEMS TO BE WATER ARO 
UND HERE BECAUSE I CAN HEAR IT 

it 


410 R$(5)="YOU ARE BESIDE A LARG 
E BLUE WATERFALL. A DWARF SI 

TS ON A SMALL ROCK BESIDE THE 

WATER." 

420 R$(6)="THERE ARE TUNNELS LEA 
DING EVERYWHERE." 

430 R$(7)="THERE ARE TUNNELS LEA 
DING EVERYWHERE." 
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44 0 R$ (8) ="YOU ARE IN A NETWORK 
OF SMALL TUNNELS THAT STRETCH 

OUT IN ALL DIRECTIONS." 

45J3 R$ (9) ="YOU ARE IN A HUGE UND 
ERGROUND CAVERN. WATER DRIPS F 

ROM THE CEILING." 

46J3 R$(1J3)="Y0U ARE IN A NETWORK 
OF SMALL TUNNELS THAT STRETCH 
OUT IN ALL DIRECTIONS." 

47J3 R$ (11) ="THERE ARE TUNNELS LE 
ADING ALMOST EVERYWHERE." 

48J3 R$ (12) ="YOU ARE NOW IN THE S 
PELL ROOM. A SIGN ON THE WALL P 
ROVIDES A MESSAGE. XDANGER 

X" 

49J3 R$ (13) ="YOU ARE ON THE SHORE 
OF THE WATERFALL OUTLET. TH 

ERE ARE LITTLE PEBBLES EVERY 

WHERE." 

5J3J3 R$ (14 ) =" YOU ARE IN A LARGE Y 
ARD THAT IS SURROUNDED BY A COLO 

RFUL YET STRANGE FENCE." 

51J3 R$ (15) ="YOU ARE NOW UNDER A 
BLUE WATERFALL. THERE IS 

A LARGE ROCK LYING HERE." 

52 0 R$ (16) ="YOU ARE AT THE ENTRA 
NCE OF THE LEGENDARY EVIL B 

LACK CASTLE." 

53J3 R$ (17) ="YOU ARE IN AN OLD RO 
OM. THERE IS A LARGE ROOM TO T 

HE SOUTH A SIGN SAYS ...NO RE 

TURN_" 

54J3 R$ (18) ="THIS IS AN EMPTY ROO 
M. IT FEELS LIKE A TRAP 

FOR TRESPASSERS." 

55J3 R$ (19) ="YOU ARE IN A FOUL SM 
ELLING CHAMBER. THE WALLS A 

RE COVERED WITH COB WEBS AND DU 

ST." 

56J3 R$ (2J3) ="YOU ARE IN THE ROOM 
OF THE RING CALLED EQUINOX. 

THE RING IS SUSPENDED FROM TH 

E CEILING." 

57 0 L=1:TD=J3:RK=J3:MD=J3:WT=J3:SP=J3 

58 0 DB=J3:DD=J3:FR=J3 

59j3 O (10,1) =1: 0 (12,1) =2 :0 (17,1) = 

3:0(18,1)=4:0(1,1)=5:0(8,1)=6:0( 

14/1)=7 

6J3J3 PCLS: GOSUB 113J3: GOSUB 1000 
61j3 GOSUB 175J3 

62j3 IF C$="I" OR C$="INV" OR C$= 
"INVENT" OR C$="INVENTORY" THEN 
GOSUB 194J3: G0T061J3 
63J3 IF C$ = "LOOK" OR C$ = "L" THEN 
GOTO 6J3J3 

64j3 IF C$ = "N" OR C$ = "S" OR C$="E 


" OR C$="W" OR C$="U" OR C$ = "D" 
THEN GOSUB 211J3:G0T0 6J3J3 
65j3 IF C$="PLAY FLUTE" AND L=2j3 
THEN 354J3 

66J3 IF LEFT$ (C$,5) ="CLIMB" AND L 
=2J3 THEN 3 57J3 

67 0 IF C$="ASK DWARF" THEN FOR X 
=1 TO 8:IF I(X)<>1 THEN NEXTX:PC 
LS : DRAW"BMJ3 , J3 ? " : S$="THE DWARF PO 
INTS TO THE WATER AND SAYS .... 

WHY DO YOU NOT GO SWIMMING.":G 
OSUB 1J36J3: G0T061j3 ELSE 69j3 
68j3 GOTO 100 

69j3 PCLS: DRAW"BMJ3,J3?" :S$="THE DW 
ARF INFORMS YOU THAT YOU MUST D 
ROP SOMETHING TO PROCEED. THE DW 
ARF GIGGLES.":GOSUB 1J36J3:G0T0 61 

P 

100 IF C$="ROOM" OR C$ = "R" THEN 
GOSUB 8 6J3 : GOTO 61J3 
71j3 IF LEFT$ (C$,4) ="LIFT" OR LEF 
T$(C$,4)="MOVE" OR LEFT$(C$,4)=" 
ROLL" THEN 3J37J3 

72j3 IF (C$ = "ENTER FIREPLACE" OR 
C$="GO FIREPLACE" OR C$="CLIMB F 
IREPLACE")AND L=1 THEN L=2:G0T06 

W 

73J3 IF LEFT$ (C$ , 3) = "GET" OR LEFT 
$ (C$ , 4 ) ="TAKE" THENGOSUB28 6j3 : IFO 
0=J3THEN2 9 6J3 E LS E: FORX= 1T0 8 :1FO (L, 
X)<>00 THENNEXTX: GOTO298j3 ELSE 3 

JW 

74j3 IF C$="VOC" THEN G0SUB312J3:G 
0T061J3 

75j3 IF C$="PLAY FLUTE" THEN FORX 
=1T0RND (5) + 1J3 : SOUNDRND (255) , 1: NE 
XTX: IFL=2THENMD=1: LINE (J3,17j3) - (2 
56,18j3) , PRESET, BF: DRAW"BMJ3,18j3 ? " 
:S$="THE DOOR MAGICALLY OPENS.": 
GOSUB1J36J3: F0RT=lT05j3j3 : NEXTT: LINE 
(j3,17j3)-(256,18J3) , PRESET, BF: GOTO 
61J3ELSE316J3 

76J3 IF LEFT$ (C$,4) ="READ"THENGOS 
UB286J3: IF00O2THENG0T029 6J3ELSE31 
80 

110 IF LEFT$(C$,4)="SWIM" AND (L 
= 5 OR L=13) THEN 3 24J3 
78j3 IF C$="PRY ROCK" OR C$ = "LIFT 
ROCK" OR C$="MOVE ROCK" THEN 3 3 
00 

190 IF LEFT$(C$,3)="SAY" THEN 33 
30 

800 IF LEFT$(C$,5)="THROW" THEN 
G0SUB28 6J3 : IF00O3THEN29 6J3ELSE3 3 8 

P 

810 IF LEFT$(C$,4)="DROP" OR LEF 
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T$ (C$, 3) ="PUT" THENGOSUB2860 : GOT 
03420 

820 IF LEFT$(C$,4)="FEED" THEN 3 
470 

830 IF C$="QUIT" OR C$="END" THE 
N 361)3 

84)3 LINE(0,170)-(256,18)3) , PRESET 

, BF: DRAW"BMP,18)3;": S$="SORRY THA 

T IS NOT POSSIBLE.":GOSUB1060:FO 

RT=1TO500:NEXTT:GOTO3160 

850 GOTO 850 

860 REM OBJECTS IN ROOM 

8 70 PCLS: DRAW"BM9,0;":S $ ="THINGS 

IN THE ROOM.":GOSUB 1060 

880 CR$="BM-247,+10;":DRAW CR$ 
890 FOR Y=1 TO 8 

900 IF 0(L,Y)=1 THEN S$="SOME BR 
AND NEW GOGGLES.":GOSUB 1060:DRA 
W"BM-247,+10;" 

910 IF 0(L,Y)=2 THEN S$="AN ANCH 
IENT SPELLBOOK.":GOSUB 1060:DRAW 
CR$ 

920 IF 0(L,Y)=3 THEN S$="A SPARK 
LING MAGIC POWDER.":GOSUB 1060:D 
RAW CR$ 

930 IF 0(L,Y)=4 THEN S$="A VERY 
LONG THIN SNAKE.":GOSUB 1060:DRA 
W CR$ 

940 IF 0(L,Y)=5 THEN S$="A RED P 
ILL MARKED ..CHANGER..":GOSUB 10 
60:DRAW CR$ 

950 IF 0(L,Y)=6 THEN S$="A GOLDE 
N FLUTE.":GOSUB 1060:DRAW CR$ 

960 IF 0(L,Y)=7 THEN S$="A HEAVY 
PRYING BAR.":GOSUB 1060:DRAW CR 

$ 

970 IF 0(L,Y)=8 THEN S$="A LONG 
THIN ROPE.":GOSUB1060:DRAW CR$ 
980 NEXTY:RETURN 
990 GOTO 990 

1000 REM ROOM DISCRIPTION 
1010 IF L=19 AND WT=0 THEN DRAW" 
BM0,145;":S$="YOU ARE IN A FOUL 
SMELLING ROOM. THERE IS A W 

ITCH HERE.":GOSUB 1060:RETURN 
1020 IF L=14 AND DD=1 THEN DRAW" 
BM0,145;":S$="THERE IS A LARGE H 
OLE BESIDE THE FENCE MADE FRO 
M A LAND SLIDE.":GOSUB1060: 

RETURN 

1030 IF L=15 AND RK=1 THENDRAW"B 
M0,145;": S$="YOU ARE UNDER A BL 
UE WATERFALL THERE IS A HOLE BE 
SIDE A LARGE BLACK ROCK.":GOSUB 
1060:RETURN 

1040 IF L=20 AND FR=1 THENDRAW"B 


M0,145;":S$="THERE IS A ROPE EXT 
ENDING TO THE ROOF JUST BESID 
E THE RING OF EQUINOX.":GOSUBl 
060:RETURN 

1050 DRAW"BM0,145;":S$=R$(L):GOS 
UB1060:RETURN 

1060 C=0:FOR X=1 TO LEN(S $) 

1070 A$=MID$(S$,X,1):A=ASC(A$)-6 
4 

1080 C=C+1:IF C=33 THEN C=1:DRAW 
"BM-249,+10;" 

1090 IF A=32 OR A=-3 2 THEN DRAW" 
BM+7,0;":NEXTX:RETURN 
1100 IF A=-18 THEN A=27:GOTO 110 
0 ELSEDRAW"XN$(A);BM+7,0;" 

1110 NEXTX:RETURN 
1120 GOTO 1120 

1130 LINE(0,0)-(256,137),PSET,B: 
IF L=10 OR L=6 OR L=ll OR L=8 OR 
L=7 THEN 1430 
1140 IF L=9 THEN 1410 
1150 IF L=1 OR L=12 OR L=2 OR L= 
18 OR L=17 OR L=19 THEN 1230 
1160 IF L=16 THEN 1460 
1170 IF L=14 THEN 1510 
1180 IF L=13 OR L=5 THEN 1570 
1190 IF L=15 THEN 1600 
1200 IF L=4 OR L=3 THEN 1680 
1210 IF L=20 THEN 1720 
1220 PRINT"ROOM ERROR! PLEASE RE 
RUN":END 

1230 REM 0,0-256,137 

1240 LINE(0,0)-(20,20),PSET 

1250 LINE-(20,117),PSET 

1260 LINE-(0,137),PSET 

1270 LINE(256,0)-(236,20),PSET 

1280 LINE-(236,117),PSET 

1290 LINE-(256,137),PSET 

1300 LINE(20,20)-(236,20),PSET 

1310 LINE(20,117)-(236,117),PSET 

1320 IF L=1 THEN PAINT(10,136) , 0 

1330 IF L=1 THENFOR X=50 TO 100 
STEP2:LINE(X,50)-(X,117),PSET:NE 
XTX:LINE(60,90)-(90,117),PSET,BF 
:FORX=61 TO 91 STEP2:LINE(X,20)- 
(X,50),PSET:NEXTX 
1340 IF L=1 AND TD=1 THEN LINE(1 
00,120)-(150,134),PRESET,BF 
1350 IF L=2 AND MD=0THEN FORX=70 
TO 140STEP2.5:LINE(INT(X),2)-(I 
NT(X),20),PSET:NEXTX 
1360 IF L=2 AND MD=1THEN LINE(70 
, 2)-(140,20),PSET,BF 
1370 IF L=12 THEN LINE(108,40)-( 
148,50),PSET,BF 
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138) 3 IF L=19 THEN DRAW"BM0 ,0 ;F10 
E10G10F10H10G10E10R10L20R10U10D1 
0" 

139) 3 IF L=19 AND WT=)3 THEN DRAW" 
BM98,12 7; E3J3F3)3H3)3U4)3D5F2J3H2J3G2)3 

:CIRCLE(128,40),14 
14)3)3 RETURN 

141)3 DRAW"BM)3,)3;F2J3E1)3F2)3E3)3F1J3E 
5F1)3E15F1)3E2F1J3E18F1)3E1J3 ;S4;" 

1420 PAINT(1)3,3)3) ,0,0:RETURN 

143) 3 CIRCLE (128,86) ,30: CIRCLE (20 
0,86),15,,3:CIRCLE(55,86),15,,3 

144) 3 PAINT (1J3,1J3) ,0,0 
1450 RETURN 

1460 LINE(108,37)-(148,137),PSET 
,BF:FORX=108 TO 148 STEP 3:LINE( 
X,37)-(X,137),PRESET:NEXT 
1470 CIRCLE(128,37),20,,1,.5,1 
1480 LINE(20,100)-(40,115),PSET, 
BF:LINE(236,100)-(216,115),PSET, 
BF 

1490 IF DB=1 THEN FORY=37 TO 137 
:LINE(109,Y)-(147,Y),PSET:NEXTY 
1500 RETURN 
1510 DRAW"BM0,100;" 

1520 FOR X=0 TO 256 STEP4 

1530 DRAW"E2F2":NEXT X 

1540 FOR X=1 TO 256 STEP 2.5:LIN 

E(INT(X),100)-(INT(X),137),PSET: 

NEXT X 

1550 FOR X=0 TO 256 STEP2:LINE(X 
,0)-(X,99),PSET:NEXT 
1560 RETURN 

1570 FOR X=0 TO 256 STEP 2:LINE( 
X,100)-(X,137),PSET:NEXTX:FORX=l 
T0199 STEP 2:LINE(X,0)-(X,99),PS 
ET:NEXTX:FORX=200 TO 256 STEP2:L 
INE(X,0)-(X,99),PSET:NEXTX 
1580 LINE(200,99)-(256,137),PSET 
1590 RETURN 

1600 FOR X=0 TO 256 STEP 4:LINE( 

X,0)-(X,137),PSET:NEXTX 

1610 DRAW"BM128,137;H10E10F5E10F 

15G10L20;":PAINT(128,127),0,0 

1620 PAINT(130,127),0,0 

1630 PAINT(133,127),0,0 

1640 PAINT(137,127),0,0:PAINT(13 

9.127) ,0,0:PAINT(143,127),0,0 
1650 PAINT(125,127),0,0:PAINT(12 

1.127) ,0,0 

1660 PAINT(147,127),0,0:PAINT(15 

1.127) ,0,0:PAINT(155,127),0,0 
1670 RETURN 

1680 FORX=0TO256STEP2:LINE(X,0)- 

(X,107),PSET:NEXTX 

1690 FORX=0TO256STEP4:LINE(X,108 


)-(X,137),PSET 

1700 LINE(X+3,108)-(X+3,137),PSE 
T:NEXTX 
1710 RETURN 

1720 IF L=20 THEN PAINT(128,40), 
0,0:CIRCLE(128,73),3,1 
1730 LINE(128,0)-(128,71),PRESET 
1740 RETURN 

1750 REM INPUT COMMAND 
1760 DRAW"BM0,180;" 

1770 C$="COMMAND ? " 

1780 C=0:FOR X=1 TO LEN(C$) 

1790 A$=MID$(C$,X,1):A=ASC(A$)-6 
4 

1800 C=C+1:IF C=33 THEN C=1:DRAW 
"BM-249,+10;" 

1810 IF A=32 OR A=-32 THEN DRAW" 
BM+7,0;":NEXTX:GOTO1840 
1820 IF A=-l THEN A=28:GOTO1820 
ELSE DRAW"XN$(A);BM+7,0;" 

1830 NEXT X 
1840 C$="" 

1850 A$=INKEY$:IF A$="" THEN1850 
1860 IF A$=CHR$(13) THEN 1930 
1870 IF A$=CHR$ (32) THEN DRAWBM 
+7,0;":C$=C$+A$:GOTO 1850 
1880 IF A$=CHR$(8) THEN C$=LEFT$ 
(C$,LEN(C$)-1):GOTO1850 
1890 A=ASC(A$)-64:IF A<0 OR A>28 
THEN 1850 
1900 C$=C$+A$ 

1910 DRAW"XN$(A);BM+7,0;":C=C+1: 

IF 031 THEN 570 

1920 GOTO 1850 

1930 RETURN 

1940 REM INVENTORY 



1950 FOR X=1 TO 8:IF I(X)=0 THEN 
NEXTX: PCLS: DRAWBM0,0; " : S$="YOU 
ARE CARRYING NOTHING":GOSUB1060 
:RETURN 

1960 PCLS:DRAW"BM0,0;" 

1970 S$="YOU ARE CARRYING THE FO 
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LLOWING " 

1980 GOSUB 1060 

1990 DRAW"BM0 ,20; 11 

2000 FOR Y=1 TO 8 

2010 IF I(Y)=0 THEN NEXTYlRETURN 

2020 IF I(Y)=1 THEN S$="GOGGLES 

" : GOSUB1060 : DRAW" BM-2 4 7, + 10 ? " 

2030 IF I(Y)=2 THEN S$="SPELLBOO 

K GOSUB 1060:DRAW"BM-247,+10?» 

2040 IF I(Y)=3 THEN S$="MAGIC PO 

WDER »: GOSUB 1060:DRAW"BM-247,+1 

07" 

2050 IF I(Y)=4 THEN S$=»SNAKE 
GOSUB 1060:DRAW"BM-247,+10?" 

2060 IF I(Y)=5 THEN S$=»RED PILL 
":GOSUB 1060: DRAW"BM-247, +10 ? " 
2010 IF I(Y)=6 THEN S$=»FLUTE 
GOSUB 1060:DRAW"BM-247,+10?» 

2080 IF I(Y)=7 THEN S$="PRYING B 

AR GOSUB 1060:DRAW"BM-247,+10? 
m 

2090 IF I(Y)=8 THEN S$="A LONG T 
HIN ROPE ":GOSUB1 060: DRAW"BM-2 4 7 
,+10; u 

2100 NEXT Y:RETURN 
2110 REM DIRECTIONAL 
2120 IF C$="N" THEN 2190 
2130 IF C$ = "S" THEN 2320 
2140 IF C$ = "E" THEN 2460 
2150 IF C$ = "W" THEN 2570 
2160 IF C$="D" THEN 2690 
2170 IF C$="U" THEN 2740 
2180 RETURN 

2190 IF L=12 THEN L=ll:RETURN 
2200 IF L=11 THEN L=10:RETURN 
2210 IF L=8 THEN L=9:RETURN 
2220 IF L=9 THEN L=l:RETURN 
2230 IF L=6 THEN L=7:RETURN 
2240 IF L=7 THEN L=6:RETURN 
2250 IF L=3 THEN L=4:RETURN 
2260 IF L=4 THEN L-3:RETURN 
2270 IF L=5 THEN L~4:RETURN 
2280 IF L=14 THEN L=13:RETURN 
2290 IF L=16 THEN L=15:RETURN 
2300 IF L=17 THEN L=16:RETURN 
2310 LINE(0,170)-(256,180),PRESE 
T, BF:DRAW"BM0,180 ?":S$="YOU CANN 
OT GO THAT WAYGOSUB 1060:FORT 
=1TO200:NEXT T:LINE(0,170)-(256, 
180),PRESET:RETURN 
2320 IF L=10 THEN L=ll:RETURN 
2330 IF L=ll THEN L=12:RETURN 
2340 IF L=9 THEN L=8:RETURN 
2350 IF L=6 THEN L=7:RETURN 
2360 IF L=7 THEN L=8:RETURN 
2370 IF L=8 THEN L=7:RETURN 


2380 IF L=3 THEN L=4:RETURN 
2390 IF L=4 THEN L=5:RETURN 
2400 IF L=13 THEN L=14:RETURN 
2410 IF L=16 AND DB=1 THEN L=17: 
RETURN ELSE IF L=16 THEN LINE(0, 
170)-(80,180),PRE S ET,BF:DRAW"BM0 
,180 ?":S$="THE DRAWBRIDGE IS NOT 
DOWN.":GOSUB 1060:FOR T=1 TO 30 
0:NEXT T:LINE(0,170)-(256,180),P 
RESET,BF:RETURN 
2420 IF L=17 THEN L=20:RETURN 
2430 IF L=18 THEN L=19:RETURN 
2440 IF L=19 THEN L=18:RETURN 
2450 GOTO 2310 

2460 IF L=10 THEN L=9:RETURN 
2470 IF L=9 THEN L=6:RETURN 
2480 IF L=6 THEN L=2:RETURN 
2490 IF L=ll THEN L=8:RETURN 
2500 IF L=8 THEN L=7:RETURN 
2510 IF L=3 THEN L=4:RETURN 
2520 IF L=4 THEN L=3:RETURN 
2530 IF L=7 THEN L=6:RETURN 
2540 IF L=13 THEN L=15:RETURN 
2550 IF L=17 THEN L=19:RETURN 
2560 GOTO 2310 
2570 IF L=2 THEN L=1:RETURN 
2580 IF L=6 THEN L=9:RETURN 
2590 IF L=9 THEN L=10:RETURN 
2600 IF L=10 THEN L=ll:RETURN 
2610 IF L=7 THEN L=8:RETURN 
2620 IF L=8 THEN L=ll:RETURN 
2630 IF L=ll THEN L=10:RETURN 
2640 IF L=4 THEN L=3:RETURN 
2650 IF L=19 AND WT=1 THEN L=17: 
RETURN ELSE IF L=19 THEN LINE(0, 
170)-(80,180),PRESET,BF:DRAW"BM0 
,180 ?":S$="THE WITCH IS BLOCKING 
YOUR EXIT":GOSUB 1060:FOR T=1 T 
O 400:NEXT T:LINE(0,180)-(256,18 
0),PRESET,BF:RETURN 
2660 IF L=17 THEN L=18:RETURN 
2670 IF L=15 THEN L=13:RETURN 
2680 GOTO 2310 

2690 IF L=1 AND TD=1 THEN L=9:RE 
TURN ELSE IF L=1 THEN LINE(0,17 
0)-(80,180),PRESET,BF:DRAW"BM0,1 
80 ?":S$=". . I CANNOT SEE A DOOR 
. .":GOSUB 1060:FOR T=1 TO 500:NE 
XT T:LINE(0,170)-(256,180),PRESE 
T,BF:RETURN 

2700 IF L=3 THEN L=2:RETURN 
2710 IF L=14 AND DD=1 THEN L=12: 
RETURN ELSE IF L=14 THEN LINE(0, 
170)-(80,180),PRESET,BF:DRAW"BM0 
,180?":S$=".. WHERE IS THE DOOR 
GOSUB 1060:FOR T=1 TO 500:NE 


93 





XT T: LINE (0,170)-(256,180) ,PRESE 
T,BF:RETURN 

2720 IF L=15 AND RK=1 THEN L=16: 
RETURN ELSE IF L=15 THEN LINE(0, 
170)-(8 0,180) , PRESET f BF s DRAW" BM0 
, 180 ; " : S $="THE ROCK IS BLOCKING 
THE DOOR.":GOSUB 1060:FORT=1 TO 
500:NEXT T:LINE(0,170)-(256,180) 

,PRESET,BF:RETURN 
2730 GOTO 2310 

2740 IF L=2 AND MD=1 THEN L=3:RE 
TURN ELSE IF L=2 THEN LINE(0,170 
) - ( 80 ,180) , PRESET, BF : DRAW" BM0,18 
0;": S$="THE DOOR IS SHUT TIGHT." 

:GOSUB 1060:FOR T=1 TO 500:NEXT 
T:LINE(0,170)-(256,18$),PRESET,B 
F:RETURN 
2750 GOTO 2310 

2760 DATA BU1U4E1R2F1NG4D4G1L2H1 
BD1,U5E1R2F1D2NL4D3BL4,U6R3F1D1G 
1NL3F1D1G1L3,BU1U4E1R2F1BD4G1L2H 
1BD1,U6R2F2D2G2L2,U6R4BD3BL1L3D3 
NR4 

2770 DATA U6R4BD3BL1L3D3,BU1U4E1 
R3BD4NL1D2L3H1BD1,U6BR4D3NL4D3BL 
4,BU6BR1R2L1D6NR1L1BL1,BU6BR4D5G 
1L2H1BD1,U6D3R1NE3NF3BD3BL1 
2780 DATA NU6NR4,U6F2ND1E2D6BL4 , 
U6D1F4NU5D1BL4,BU1U4E1R2F1D4G1L2 
H1BD1,U6R3F1D1G1L3D3,BU1U4E1R2F1 
D3G1NH1NF1G1L1H1BD1 
2790 DATA U6R3F1D1G1L3R1F3BL4,BU 
5BR4H1L2G1D1F1R2F1D1G1L2H1BD1,BU 
6R4L2D6BL2,BU1U5BR4D5G1L2H1BD1,B 
U6BR4D2G1D1G1ND1H1U1H1NU2BD4,NU6 
E2NU1F2NU6BL4 

2800 DATA BU6D1F2E2NU1BD4ND1H2G2 
D1,BU6BR4D1G2ND3H2NU1BD5,BU6R4D1 
G4D1NR4 

2810 DATA NR1NE1U1D1,BU3R5L5BD3 
2820 DATA BU1U4E1R2F1NG4D4G1L2H1 
BD1,BU6BR2NG1D6R1L2BL1,BU5E1R2F1 
D1G1L1G2D1NR4,BU5E1R2F1D1G1NL1F1 
D1G1L2H1BD1,BU2NR4U1E3D6BL3 
2830 DATA BU6NR4D3E1R2F1D2G1L2H1 
BD1,BU6BR2NR2G2D3U2R3F1D1G1L2H1B 
D1,BU6R4D1G3D2BL1,BU1U1E1NR1H1U1 
E1R2F1D1G1NL1F1D1G1L2H1BD1,BU4NF 
1U1E1R2F1D2NL3D1G2L2 
2840 DATA BU6D1F2E2NU1BD4ND1H2G2 
D1 

2850 DATA9,14,0,19,5,1,18,3,8,0, 
15/6,0,20,8,5,0,18,9,14,7 
2860 REM WHAT OBJECT? 

2870 IF RIGHT$(C$,7)="GOGGLES" T 
HEN 00=1:RETURN 


2880 IF RIGHT$(C$,4)="BOOK" OR R 
IGHT$(C$,9)="SPELLBOOK" THEN 00= 
2:RETURN 

2890 IF RIGHT$(C$,6)="POWDER" OR 
RIGHT$(C$,5)="MAGIC" OR RIGHT$( 
C$,12)="MAGIC POWDER" OR RIGHT$( 
C$,11)="MAGICPOWDER" THEN 00=3:R 
ETURN 

2900 IF RIGHT$(C$,5)="SNAKE"THEN 
00=4:RETURN 

2910 IF RIGHT$(C$,4)="PILL" OR R 
IGHT$(C$,8)="RED PILL" OR RIGHT$ 
(C$,7)="REDPILL" THEN00=5:RETURN 
2920 IF RIGHT$(C$,5)="FLUTE" OR 
RIGHT$(C$,4)=»GOLD" THEN00=6:RET 
URN 

2930 IF RIGHT$(C$,3)="BAR" OR RI 
GHT$ (C$,6)="PRYING" OR RIGHT$(C$ 
,10)="PRYING BAR" OR RIGHT$(C$,9 
)="PRYINGBAR" THEN00=7:RETURN 
2940 IF RIGHT$(C$,4)="ROPE" THEN 
00=8:RETURN 
2950 00=0:RETURN 
2960 REM CAN'T DO THAT 
2970 LINE(0,170)-(256,180),PRESE 
T,BF:DRAW"BM0,180;»:S $="I TRIED 
BUT I CANNOT DO THAT.":GOSUB 106 
0:FORT=1TO500:NEXTT:LINE(0,170)- 
(256,180),PRESET,BF:GOTO610 
2980 REM NOT HERE 
2990 LINE(0,170)-(256,180),PRESE 
T,BF:DRAW"BM0,180;":S$ = "IT IS NO 
T HERE IN THIS ROOM.":GOSUB 1060 
:F0RT=1 TO 500:NEXTT:LINE(0,170) 
- (256,180),PRESET,BF:GOTO610 
3000 REM TAKE 
3010 SOUND 100,1 
3020 O(L,X)=0 

3030 FOR X=1 TO 8:IF I(X)=0 THEN 
3050 ELSE NEXTX 
3040 X=8 
3050 I(X)=00 

3060 LINE(0,170)-(256,180) ,PRESE 
T,BF:GOTO610 
3070 REM ROLL 

3080 IF RIGHT$(C$,3)="RUG" THEN 
IF L=1 THEN 3100 

3090 LINE(0,170)-(256,180),PRESE 
T,BF:DRAW"BM0,180;":S$="SORRY YO 
U CANNOT DO THAT.":GOSUB 1060:FO 
RT=1T0500:NEXTT:LINE(0,170)-(256 
,180),PRESET,BF:G0T0610 
3100 IF TD=1 THEN LINE(0,170)-(2 
56,180),PRESET,BF:DRAW"BM0,180;" 
:S$="THE RUG IS ALREADY MOVED.": 
GOSUB 1060:FORT=1TO500:NEXTT:LIN 
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E(0,170)-(256,180),PRESET,BF:GOT 
0610 

3110 TD=1:LINE(0,170)-(256,180), 
PRESET,BF:DRAW"BM0,180;":S$="THE 
RE IS A TRAP DOOR HERE.":GOSUB 1 
060:F0RT=1T0500:NEXTT:LINE(0,170 
)-(256,180),PRESET,BF:GOTO600 
3120 PCLS 
3130 DRAW»BM0,0;" 

3140 S$="S N E W U D DIRECTIONS 
INVENTORY INVENT INV I 
LOOK ROOM ASK LIFT 
MOVE ROLL ENTER GO 
CLIMB GET TAKE VOC 
PLAY READ PRY SAY 
THROW DROP PUT FEED": 
GOSUB1060 
3150 RETURN 

3160 LINE(0,170)-(256,180),PRESE 
T,BF:GOTO610 

3170 LINE(0,170)-(256,180),PRESE 

T,BF:RETURN 

3180 PCLS:DRAW"BM0,0;" 

3190 F0RX=1T08 : IFI (X) 02THENNEXT 
X:S$="YOU DO NOT HAVE THE BOOK." 
:GOSUB1060:FORT=1TO500:NEXTT:GOT 
03160 

3200 IF L=14 THEN S$="THE SPELLB 
OOK TALKS AND SAYS... THE WAY TO 

GO ISNT OPEN TRY THE WO 

RD ABRACADABRA.":GOSUB1060:FORT= 
1TO500:NEXTT:GOTO3160 
3210 IF L=16 THEN S$="YOU WANT A 
SPELL FOR THAT BRIDGE.... 

WELL.TRY THIS ONE THEN S 

AY BRIDGE DOWN.":G0SUB1060:FORT= 

1TO500:NEXTT:GOTO3160 

3220 IF L=20 THEN S$="YOU FEED T 

HE SNAKE TO FILL THE AIR SO WHE 

N YOU CLIMB YOU GET UP THERE." 

:GOSUB1060:FORT=1TO500:NEXTT:GOT 

03160 

3230 S$="YOU TRAVEL THROUGH THE 
PAGES AND FIND IT EMPTY EXCEP 
T FOR ONE SENTENCE....WHEN YO 
U NEED A SPELL INDEED ASK THE 
BOOK AND I WILL HELP YOU LOO 

K.":GOSUB1060:FORT=1TO500:NEXTT: 
GOTO3160 

3240 PCLS:DRAW"BM0,0;" 

3250 F0RX=1T08 : IFI (X) OlTHENNEXT 
X:S$="YOU SWIM AND SWIM BUT THE 
WATER IS SO THICK THAT YOU CANNO 
T SEE WHERE YOU ARE GOING. YOU H 
IT A ROCK KNOCK YOURSELF OUT AN 
D DROWN. SORRY BUT THIS ADVE 


NTURE IS OVER.":GOSUB1060:G0T036 

10 

3260 S$="YOU SWIM AND SWIM THE W 
ATER IS NICE AND CLEAR. YOU SEE 
A SHORE AND SWIM TOWARD IT. YOU 
ARE NOW ON THE OTHER SIDE OF TH 
E WATER.":GOSUB1060 
3270 IF L=5 THEN L=13:GOTO3290 
3280 IF L=13 THEN L=5 
3290 GOTO 610 
3300 PCLS:DRAW"BM0,0;" 

3310 F0RX=1T08 : IFI (X) 07THENNEXT 
X:S$="YOU HAVE NOTHING THAT IS S 
TRONG ENOUGH TO LIFT THAT HEAVY 
OLD ROCK.":GOSUB1060:GOTO610 
3320 S$="YOU HAVE PRIED THE ROCK 
UP WITH THE STEEL PRYING BAR. Y 
OU HAVE EXPOSED A LARGE HOLE. Y 
OU SMELL EVIL CLOSE BY.":GOSUB10 
60:RK=1:G0T0610 



3330 REM SAY SPELL 
3340 PCLS:DRAW"BM0,0;" 

3350 IF L=14 AND RIGHT$(C$,11)=" 
ABRACADABRA" THEN DD=1:S$="THE S 
KY FLASHES AND THE EARTH CAVES 
IN MAKING A HOLE HERE.":GOSUB10 
60:GOTO610 

3360 IF L=16 AND RIGHT$(C$,11)=" 
BRIDGE DOWN" THEN DB=1:S$="THE 
DRAW BRIDGE SLOWLY LOWERS AND 
EXPOSES THE EVIL WHICH OWNS THIS 
BLACK CASTLE.":GOSUB1060:F0RT=1 
TO500:NEXTT:G0T0610 
3370 S$="IF THAT IS A SPELL THEN 
IT DOES NOT SEEN TO BE WORKING 
HERE MAYBE IT IS MEANT FOR 

SOMEWHERE ELSE.":GOSUB 1060:GOTO 
610 

3380 LINE(0,170)-(256,180),PRESE 
T,BF:DRAW"BM0,180 ; " 

3390 F0RX=1T08 : IFI (X) 03THENNEXT 
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X:S$="YOU DO NOT HAVE THE POWDER 
.":GOSUB1060:FORT=1TO500:NEXTT:G 
OTO3160 

3400 IF L=19 AND WT=0 THEN S$ = "T 
HE WITCH MELTS AND DISAPPEARS.": 
GOSUB1060:FORT=1TO500:NEXTT:WT=1 
:GOTO316$ 

3410 S$="NOTHING SPECIAL HAPPENS 

.":GOSUB1060:FORT=1TO500:NE 

XTT:G0T03160 

3420 GOSUB3170:DRAW"BM0, 180; " 
3430 F0RX=1T08:IFI(X)<>00 THENNE 
XTX:S$="YOU DO NOT HAVE THAT OBJ 
ECT.":GOSUB10 60:FORT=1TO500:NEXT 
T:GOTO3160 

3440 F0RX=1T08:IFO(L,X)=0THENO(L 
,X)=00 ELSENEXTX:S$="YOU CAN NOT 
DROP IT HERE.":GOSUB1060:F0RT=1 
T0500:NEXTT:GOTO 3160 
3450 F0RX=1T08:IF I(X)=00 THENI( 
X)=0ELSENEXTX 

3460 S$="OK. I HAVE DROPPED IT." 
:GOSUB1060:FORT=1TO500:NEXTT:GOT 
03160 

3470 G0SUB3170:DRAW"BM0,180 ;" 
3480 GOSUB2860:IFOO=0THENS$="I D 
ONT THINK IT IS HUNGRY.":GOSUB10 
60:FORT=1TO500:NEXTT:G0T03160 
3490 IF 0004 THENS$="YOU CANNOT 
FEED THAT.":GOSUB1060:F0RT=1T05 
00:NEXTT:GOTO3160 
3500 F0RX=1T08 : IFI (X) 04THENNEXT 
X:S$="YOU ARE NOT HOLDING IT.":G 
OSUB1060:FORT=1TO500:NEXTT:G0T03 
160 

3510 F0RX=1T08 : IFI (X) 05THENNEXT 
X:S$="YOU HAVE NOTHING TO FEED I 


T. ":G0SUB1060:F0RT=1TO500:NEXTT: 
GOTO3160 

3520 I(X)=0:F0RX=1T08:IFI(X)=4TH 
ENI (X)=0ELSENEXTX 
3530 PCLS:DRAW"BM0,0;":S$="THE S 
NAKE EATS THE PILL AND BEGIN 

S TO TAKE ANOTHER SHAPE. WHEN 
THE TRANSFORMATION IS COMPL 

ETE YOU FIND THAT IT IS A LON 
G ROPE.":I(X)=8:GOSUB1060:F0RT=1 
TO500:NEXTT:G0T0610 
3540 PCLS:DRAW"BM0 / 0;» 

3550 F0RX=1T08:IFO(L,X)08THENNE 
XTX:S$="YOU HERE A VOICE SAY..TH 
E ROPE.":GOSUB1060:GOTO610 
3560 S$=" AS YOU PLAY THE FLUTE 
THE ROPE SLOWLY RISES FROM THE F 
LOOR BRINGING IT ALL THE WAY 

UP TO THE CEILING. IT THEN AT 
TACHES ITSELF TO A HOOK EXTEND 
ING FROM THE ROOF.»:GOSUB1060:FR 
=1:GOTO610 
3570 PCLS 
3580 DRAW"BM0,0;" 

3590 IF FR=1 THENS$="YOU CLIMB T 
HE ROPE AS YOU GET CLOSER TO T 
HE RING YOU FEEL ITS POWER. 

.CONG 

RATULATIONS. YOU HAVE OB 

TAINED THE RING PART ONE FI 

NISHED. ":GOSUB1060:GO 

TO3610 

3600 S$="I SEE NOWHERE TO CLIMB 

IN THIS ROOM." : GOS 

UB1060:GOTO610 

3610 IF INKEY$OCHR$ (13) THEN 3 

610 ELSE RUN /R\ 


EXCALABR32K ECB 


THE 

SWORD 


SORCERER 
PORT TWO 

THE QUEST FOR EXCALRBIR 
PROGRAMMED BY CHRIS MCKERNRN. 


10 CLEAR 100:DIM R$(20),O(20,8), 

1 ( 8 ) 

20 DIM N$(28),A$(10) 

30 POKE 65495,1 

40 FORX=0 TO 28:READ N$(X):NEXT 
50 FOR X=0 TO 10:READ A$(X):NEXT 
60 PMODE4,l:COLOR0,l:PCLS:SCREEN 
1,1:POKE 65314,255 
70 DRAW"BM70,40;C0;S12;XN$(19);B 
M+7,0;XN $(23);BM+7,0;XN$(15);BM+ 
7,0;XN$(18);BM+7,0;XN$(4); » 

80 DRAW"BM100,16;C0;S8;XN$(20);B 
M+7,0;XN$(8);BM+7,0;XN$(5) 

90 F0RX=1T05:PLAY "L255AAABBBBCC 
CCCDDDDDDEEEEEEEFFFFFFFF":NEXTX 
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100 DRAW"BM110,60?C0?S4?XN$(1) ?B 
M+8,0 ? XN$(14) ? BM+ 8,0? XN $(4) ?" 

110 DRAW"BM100,80?C0?S8?XN$(20) ? 
BM+7,0 ? XN $(8) ?BM+7,0?XN$(5) ?" 

120 DRAW"BM40,104?S12?XN$(19) ?BM 
+7,0?XN$(15) ? BM+7 , 0 ? XN $(18) ?BM+7 
,0?XN$(3) ? BM+7,0 ? XN$(5) ?BM+7,0?X 
N$ (18) ?BM+7,0?XN$(5) ?BM+7,0?XN$( 
18) 

130 DRAW"BM40,13 4? C0 ? XN$ (16) ? BM+ 
7,0?XN$(1) ? BM+7,0 ? XN $(18) ?BM+7,0 
?XN$(20) ?BM+13,0?XN$(20) ?BM+7,0? 
XN$(23) ? BM+7,0 ? XN$(15) ?" 

140 DRAW"BM13,160?C0?S4?" 

15)3 FOR X=1 TO 2 3 

160 READ DT:IF DT=0 THEN DRAW'BM 

+ 13 , 0 ?" :NEXTX:GOTO200 

170 DRAW"XN $(DT) ? BM+9, 0 ? " 

18)3 SOUND X, 1: NEXT X 
19 p DRAW"BMp ,180 ?" : S$ = " PROGRA 

MMED BY CHRIS MCKERNAN.":GOSUB11 

00 

200 IF INKEY$="" THEN 200 

210 PMODE4,1:COLOR0,1:PCLS:SCREE 

Nl, 1 

220 S$="NOW THAT YOU HAVE COMPLE 
TED PART ONE YOU CAN NOW TRY 

FOR A HARDER OBJECT. THAT OBJE 
CT IS THE SWORD CALLED EXCALAB 
IR. TRY NOT TO DIE. THIS GAME HA 
S MORE THAN ONE WAY TO DIE. 

m 

2 30 DRAW"BM0, 0 ? " 

240 L=0 

250 FOR X=1 TO LEN(S$) 

260 A$=MID$(S$,X,1):A=ASC(A$)-64 
270 IF A=-18 THEN A=27 
280 L=L+1:IF L=33 THEN L=1:DRAW" 
BM-249,+10?" 

290 IF A=32 OR A=-3 2 THEN DRAW" 
BM+7,0?":NEXT XlGOTO 310 
300 DRAW"XN$(A)?BM+7,0?":NEXT X 
310 S$=" YOU MAY NEED TO HAVE 
ANOTHER OBJECT IN ORDER TO GE 
T AN OBJECT. USE YOUR IMAG 

INATION. AFTER ALL THAT IS WHA 
T IT IS ABOUT. 

it 

320 Z=Z+1:IF Z=1 THEN 250 
330 S $ = » OOOOOOOOOOOOOOOOOOOOOO 
000000 00 HERE IS THE HINT FO 

R 00 00 ADVENTURE PART TWO 

00 00 MAKE SURE YOU HAVE 

THE 00 00 KEY TO ESCAPE 

00 OOOOOOOOOOOOOOOOOOOOOO 

000000" 


340 Z=Z+1:IF Z=3 THEN 250 

350 IF INKEY$="" THEN 350 ELSE S 

OUND 100,1 

360 PCLS:SCREEN1,1 

370 R$(1)="YOU ARE IN THE ROOM 0 

F EQUINOX. THE ROOM IS BRIGHT. T 

HERE IS A BRICK WALL TO THE SOU 

TH." 

380 R$(2)="YOU ARE IN A LONG HAL 
LWAY THAT EXTENDS INTO THE DARK 

NESS. THERE IS A DOOR TO TH 

E EAST." 

390 R$(3)="YOU ARE NOW IN THE DU 
NGEON. THERE IS A DEVIL HERE 

LAUGHING AT YOU." 

400 R$(4)="YOU ARE IN THE SOUTH 
END OF A LONG HALLWAY. THE FLO 
OR IS VERY UNUSUAL HERE." 

410 R$(5)="YOU ARE NOW AT THE SI 
DE OF A GREAT PIT. YOU THROW 
A LARGE ROCK AND FIND IT IS B 
OTTOMLESS." 

420 R$(6)="Y0U ARE IN THE KENNEL 
. THERE IS TWO LARGE WOLVES T 
IED HERE. THEY DONT SEEM TO BE 
FRIENDLY." 

430 R$(7)="YOU ARE NOW ON THE OT 
HER SIDE OF THE PIT. YOU HAVE 

REACHED A _DEAD END_" 

440 R$(8)="YOU ARE IN A ROOM WIT 
H A BROWN PLANKED WOODEN FLOOR. 

THERE IS ONE PLANK STICKING UP 
n 

450 R$(9)="YOU ARE IN A BEDROOM. 

LOOKS LIKE IT HAS NOT BEEN 

USED IN A LONG LONG TIME." 

460 R$(10)="YOU ARE IN A TALL ST 
AIRWAY. THERE IS A DOOR TO T 

HE SOUTH." 

470 R$(11)="YOU ARE NOW IN A ROC 
KY WOODED AREA." 

480 R$(12)="YOU ARE NOW IN A ROC 
KY WOODED AREA." 

490 R$(13)="THIS IS AN OPEN FIEL 
D. LOOKING INTO THE DISTANCE YO 
U CAN SEE A SMALL CABIN." 

500 R$(14)="THIS IS AN OPEN FIEL 
D. BUGS ARE FLYING ALL AROUND TH 
IS PLACE." 

510 R$(15)="YOU ARE IN A SMALL C 
ABIN. THERE IS A STOVE BESIDE TH 
E WALL." 

520 R$(16)="YOU ARE IN A CLOSET. 

THERE IS ONE HANGER HERE AND 
A TRAP DOOR BELOW YOU." 

530 R$(17)="YOU ARE IN A TOMB." 


97 



540 R$(18)="YOU ARE IN A ROOM CO 
NTAINING A LARGE WEB AND A MASS 
IVE SPIDER. YOU CAN GO SOUTH OR 
EAST." 

550 R$(19)="YOU ARE IN A SMALL R 
OOM. THERE IS A SIGN HERE THAT 

SAYS .NO RETURN." 

560 R$(20)="YOU ARE IN THE ROOM 
OF THE SWORD EXCALABIR. IT 

IS STUCK IN THE CEMENT FLOOR. 

ii 

570 L=1:BW=0:PT=0:W=0:D=0:PL=0:E 
D=0 

580 TD=0:LK=0:DD=0:SP=0:UD=0:OS= 

J3 

590 0(14,1)=2:0(15,1)=3:0(7,1)=4 
:0(6,1)=5:0(7,2)=6:0(9,1)=7:0(5, 
1)=8:I(1)=1 

600 PCLS:GOSUB 1170:GOSUB 1020 
610 GOSUB 1620 

620 IF C$="I" OR C$="INV" OR C$= 
"INVENT" OR C$="INVENTORY" THEN 
GOSUB 1810:GOTO610 
630 IF C$="PULL SWORD" THEN 3400 
640 IF C$="OPEN STOVE" THEN 3440 
650 IF C$="LOOK" OR C$="L" THEN 
GOTO 600 

660 IF C$="N" OR C$="S" OR C$="E 
" OR C$="W" OR C$="U" OR C$="D" 
THEN GOSUB 1980:GOTO 600 
670 IF C$="USE HANGER" THEN 3460 
680 IF LEFT$(C$,4)="TOSS" THEN G 
OSUB 2720:IF L=6 AND 00=8 THEN 2 
690 ELSE LINE(0,170)-(256,180),P 
RESET,BF:S$="IT DOESNT HELP TO T 
OSS THAT HERE":DRAW"BM0,180;":GO 
SUB 1100:FOR T=1 TO 500:NEXT T:L 
INE(0,170)-(256,180),PRESET,BF:G 
OTO 610 

690 IF LEFT$(C$,3)="RUB" THEN 29 
40 

700 IF LEFT$(C$,4)="PULL" THEN G 
OSUB 2720:IF L=8 AND RIGHT$(C$,5 
)="PLANK" THEN 3100 ELSE LINE(0, 
170)-(256,180),PRESET,BF:S$="WHY 
WOULD YOU WANT TO PULL THAT":DR 
AW"BM0,180;":GOSUB 1100:FOR T=1 
TO 500:NEXT T:LINE(0,170)-(256,1 
80),PRESET,BF:GOTO 610 
710 IF LEFT$(C$,6)="SQUISH" AND 
RIGHT$(C$,6)="SPIDER" THEN 3180 
720 IF C$="ROOM" OR C$="R" THEN 
GOSUB 880:GOTO 610 
730 IF LEFT$(C$,4)="OPEN" AND RI 
GHT$(C$,4)="D00R" THEN 3130 
740 IF LEFT$(C$,3)="GET" OR LEFT 


$(C$,4)="TAKE" THENGOSUB2720:IFO 
O=0THEN28 20ELSE:F0RX=1T08:IFO(L, 
X)<>00 THENNEXTX:GOTO2840 ELSE 2 
860 

750 IF C$="VOC" THEN GOSUB2980:G 
OTO610 

760 IF LEFT$(C$,5)="CLIMB" THEN 
PCLS:S$="THAT ISNT FUNNY. IF YOU 
WANT TO CLIMB SO BAD WHY DONT Y 
OU GO TO THE PLAY GROUND.":DRAW" 
BM0,0;":G0SUB1100:F0RT=1T0500:NE 
XTT:GOTO610 

770 IF LEFT$(C$,4)="READ"THENGOS 
UB2 720:1 F00O7THENG0T0 2820ELSE30 
40 

780 IF LEFT$(C$,4)="JUMP" THEN 3 
190 

790 IF LEFT$(C$,4)="FEED" THEN 3 
200 

800 IF LEFT$(C$,3)="USE" THEN 32 
70 

810 IF LEFT$(C$,5)="SHINE" THEN 
3300 

820 IF LEFT$(C$,4)="DROP" OR LEF 
T$ (C$,3)="PUT" THENG0SUB2720:GOT 
03480 

830 IF LEFT$(C$,5)="POINT" THEN 
3340 

840 IF C$="QUIT" OR C$="END" THE 
N 3590 

850 IF C$="OIL SWORD" THEN 3380 

860 LINE(0,170)-(256,180),PRESET 

,BF:DRAW"BM0,180;":S$="SORRY THA 

T IS NOT POSSIBLE.":GOSUB1100:FO 

RT=1TO500:NEXTT:GOTO3020 

870 GOTO 870 

880 REM OBJECTS IN ROOM 

890 PCLS:DRAW"BM9,0;":S$="THINGS 

IN THE ROOM.": GOSUB 1100 

900 CR$="BM-247,+10;":DRAW CR$ 
910 FOR Y=1 TO 8 

920 IF 0(L,Y)=l THEN S$="THE RIN 
G CALLED EQUINOX.":GOSUB 1100:DR 
AW"BM-2 4 7, +10;" 

930 IF 0(L,Y)=2 THEN S$="A FLY I 
N A JAR.":GOSUB 1100:DRAW CR$ 

940 IF 0(L,Y)=3 THEN S$="A HALF 
FULL CAN OF OIL.":GOSUB 1100:DRA 
W CR$ 

950 IF 0(L,Y)=4 THEN S$="A VERY 
LARGE KEY.":GOSUB 1100:DRAW CR$ 
960 IF 0(L,Y)=5 THEN S$="A LONG 
THICK ROPE.":GOSUB 1100:DRAW CR$ 
970 IF 0(L,Y)=6 THEN S$="A SILVE 
R CROSS.": GOSUB 1100:DRAW CR$ 

980 IF 0(L,Y)=7 THEN S$="A OLD D 
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USTY DIARY. " : GOSUB 1100:DRAW CR$ 

990 IF O(L,Y) =8 THEN S$="AN OLD 

MEAT BONE." :GOSUB1100: DRAW CR$ 

1000 NEXTY: RETURN 

1010 GOTO 1010 

1020 REM ROOM DISCRIPTION 

1030 IF L=1 AND BW=1 THENDRAW'BM 

0,145;" : S$ = "YOU ARE IN THE ROOM 

OF THE EQUINOX. THERE IS A 

HOLE IN THE BRICK WALL TO THE SO 

UTH. " : GOSUB1100 : RETURN 

1040 IF L=6 AND W=1 THEN DRAW'BM 

0,145;": S$ = "YOU ARE IN THE KENNE 

L. THERE ARETWO FRIENDLY WOLVES 

HERE. THERE IS AN EXIT TO THE EA 

ST.":GOSUB1100:RETURN 



1050 IF L=5 AND PT=1 THEN DRAW"B 
M0,145;":S$="YOU ARE IN FRONT OF 
A LARGE PIT.THERE IS A ROPE SUS 
PENDED ACROSSIT. " : GOSUB1100 : RETU 
RN 

1060 IF L=18 AND SP=1 THEN DRAW" 
BM0,145;": S$=" YOU ARE IN A ROOM 
WITH A LARGE SPIDER WEB. THERE 
IS A SPIDER CHEWING ON A FLY." 
: GOSUB1100: RETURN 
1070 IF L=16 AND TD=1 THEN DRAW" 
BM0, 14 5 ; " : S $=" YOU ARE IN A CLOSE 
T CONTAINING A COAT HANGER AND 
A OPEN TRAP DOOR LEADING DOWN. 
" : GOSUB1100 : RETURN 
1080 IF L=3 AND D=1 THEN DRAW'BM 
0,145;": S$ = "YOU ARE IN AN EMPTY 
ROOM THAT EXTENDS INTO A BEDRO 
OM TO THE EAST. ":GOSUB1100:RET 
URN 

1090 DRAW"BM0,145 ; " : S$=R$ (L) : GOS 
UB1100: RETURN 

1100 C=0; FOR X=1 TO LEN(S$) 

1110 A$=MID$(S$,X,1) :A=ASC(A$)-6 
4 

1120 C=C+1:IF C=33 THEN C=1:DRAW 


"BM-249/+10;" 

1130 IF A=32 OR A=-32 THEN DRAW" 
BM+7,0;":NEXTX:RETURN 
1140 IF A=-18 THEN A=27:GOTO 114 
0 ELSEDRAW"XN$(A);BM+7,0;" 

1150 NEXTX:RETURN 
1160 GOTO 1160 

1170 LINE(0,0)-(256,137),PSET,B 
1180 IF L=1 THEN 1340 
1190 IF L=2 OR L=4 THEN 1370 
1200 IF L=5 THEN 1390 
1210 IF L=6 THEN 1420 
1220 IF L=7 THEN 1440 
1230 IF L=8 THEN 1450 
1240 IF L=9 THEN 1460 
1250 IF L=10 THEN 1470 
1260 IF L=ll OR L=12 THEN 1480 
1270 IF L=13 OR L=14 THEN 1490 
1280 IF L=15 THEN 1520 
1290 IF L=3 OR L=19 OR L=16 THEN 
1550 

1300 IF L=17 THEN 1590 

1310 IF L=18 THEN 1600 

1320 IF L=20 THEN 1610 

1330 PRINT"ROOM ERROR! PLEASE RE 

RUN":END 

1340 FORX=0TO256STEP2:LINE(X, 0)- 
(X,137),PSET:NEXT:FORY=0TO137STE 
P10:LINE(0,Y)-(256,Y),PSET:NEXT: 
FORY=0TO132STEP20:FORX=21TO 256ST 
EP40:LINE(X,Y)-(X,Y+10),PSET:LIN 
E(X-20,Y+10)-(X-20,Y+20),PSET:NE 
XTX, Y 

1350 IF BW=1 THEN LINE (60,60) - (1 
00,137),PSET,BF 
1360 RETURN 

1370 CIRCLE(128,96),40,,1,.5,1:L 
INE(88,137)-(88,96),PSET:LINE-(0 
,0),PSET:LINE(168,137)-(168,96), 
PSET:LINE-(256,0),PSET:PAINT(128 
,96),0,0 
1380 RETURN 

1390 CIRCLE(128,96),90,,.1:PAINT 
(128,96),0,0:LINE (0,70)-(256,70 
),PSET 

1400 IF PT=1 THEN LINE(128,135)- 
(129,71),PRESET,BF:RETURN 
1410 RETURN 

1420 F0RY=87T0137STEP5:LINE(0,Y) 
- (256,Y) ,PSET:NEXTY:FORY=0TO87ST 
EP5:LINE(180,Y)-(2 5 6,Y) ,PSET:NEX 
TY:FORX=0TO180STEP2:LINE(X,0)-(X 
,86),PSET:NEXTX:LINE(20,20)-(70, 
40),PRESET,BF:S $="KENNEL":DRAW"B 
M22,38;":GOSUB1100 
1430 FORX=180TO256STEP5:LINE(X,0 
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0) - (X , 87 ) , PSET: NEXTX: FORX=0TO256 
STEP5:LINE(X,87)-(X,137),PSET:NE 
XTX:RETURN 

1440 LINE(0,137)-(20,107),PSET:L 
INE- (2 3 6,10 7) , PSET: LINE-(2 56,137 
) , PSET: LINE (236,107) - (2 36,0) , PSE 
T:LINE (20,107)-(20,0) ,PSET:S$="D 
E A D E N D. M : DRAW"BM50, 70 ? " : G 
OSUB1100: RETURN 

1450 FORX=0TO256STEP2 : LINE (X,0) - 
(X,9 7) ,PSET:NEXTX:F0RX=1T02 56STE 
P2:LINE(X,98)-(X,137),PSET:NEXTX 
: F0RY=98T0137STEP7 : LINE (0, Y) - (25 
6, Y) , PSET: NEXTY: LINE (200,110)-(2 
20,107) , PSET,BF:RETURN 
1460 F0RX=1T0256STEP2.5 : LINE (X, 1 
00)-(X,137) ,PSET: NEXTX: DRAW"BM10 
0 , 100 ?U40D30R100D10U40D20L100 ? » : 
LINE (20,50)-(80,100),PSET,B: LINE 
(30,60 ) - (70,65) , PSET,BF:LINE(30, 
75) - (70,90) , PSET, BF: RETURN 
1470 LINE(20,50)-(80,137) , PSET, B 
: CIRCLE (70,90),5: DRAW" BM100,137? 
U10R10U10R10U10R10U10R10U10R10U1 
0R10U10R10U10R10U10R10U10R10U10R 
10U10R10U10R10U10 ? " : PAINT(250,10 
0) ,0,0: RETURN 

1480 FORX=0TO256STEP2 : LINE (X,0) - 

(X, 100) , PSET: LINE (X+l, 101) -(X+l, 

137),PSET:NEXTX:RETURN 

1490 FOR X=0 TO 256STEP2 : LINE (X, 

J3) - (X, 100) ,PSET:LINE(X+l,101)-(X 

+1,137),PSET:NEXTX 

1500 IF L=13 THEN DRAW"BM51,100? 

U50R50D50U50H25G25D50R10U30R10D3 

0R30U30BL20R10D10L10U10 ? " 

151J3 RETURN 

152J3 LINE(2J3,5J3)-(8J3,137) ,PSET,B 
F: CIRCLE (7j3,9j3) ,5,1 
153J3 DRAW"BM1J3J3,13 7 ?Elj3R5j3Flj3Hlj3 
Rlj3L8j3U5j3R8j3D5j3U5j3L3 5U4j3D4j3Llj3U5 
J3R14J3D1J3L12J3 ? " 

154J3 PAINT (2J3J3,35) , J3, J3: LINE (11J3, 
87) - (14J3,117) , PSET,BF:RETURN 
155J3 LINE (J3,J3) - (2J3,2J3) , PSET: LINE 
-(20,117),PSET:LINE-(0,137),PSET 
:LINE(20,117)-(236,117),PSET:LIN 
E-(256,137),PSET:LINE(236,117)-( 
236,20),PSET:LINE-(256,0),PSET:L 
INE(236,20)-(20,20),PSET 
1560 IF L=16 THEN LINE(0,45)-(25 
6,50) , PSET , BF : LINE (100,120) - (140 
,135) ,PSET,BF:DRAW"BM100,45 ? D10F 
10L20E10 ?" 

1570 IF L=19 THEN LINE(100,40)-( 
180,117),PSET,B:LINE(30,60)-(80, 


70),PSET,BF 
1580 RETURN 

1590 LINE(20,0)-(40,137),PSET,BF 
: LINE(216,0)-(23 6,137),PSET,BF:L 
INE (50,100)-(20 6,13 7) ,PSET,B:LIN 
E(100,100)-(100,137),PSET:RETURN 
1600 LINE(0,0)-(256,137),PSET:LI 
NE(256,0)-(0,137),PSET:LINE(0,63 
)—(256,63),PSET:LINE(128,0)-(128 
,137),PSET:F0RX=1T063STEP5:CIRCL 
E (128,63),X:NEXTX:RETURN 
1610 LINE(0,100)-(256,100),PSET: 
DRAW"BM125,100 ?U30R6D30U30R3L12U 
4R12D4U4L4U10L4D10L4 ?":PAINT(10, 
120),0,0:RETURN 
1620 REM INPUT COMMAND 
1630 DRAW"BM0,180?" 

1640 C$="COMMAND ? " 

1650 C=0:FOR X=1 TO LEN(C$) 

1660 A$=MID$(C$,X,1):A=ASC(A$)-6 
4 

1670 C=C+1:IF C=3 3 THEN C=1:DRAW 
"BM-249,+10 ?" 

1680 IF A=32 OR A=-32 THEN DRAW" 
BM+ 7,0?":NEXTX:GOTO1710 
1690 IF A=-l THEN A=28:GOTO1690 
ELSE DRAW"XN$(A) ? BM+7,0 ?" 

1700 NEXT X 
1710 C$="" 

1720 A$=INKEY$:IF A$="" THEN1720 
1730 IF A$=CHR$(13) THEN 1800 
1740 IF A$=CHR$(32) THEN DRAW'BM 
+7,0?":C$=C$+A$:GOTO 1720 
1750 IF A$=CHR$(8) THEN C$=LEFT$ 
(C$,LEN(C$)-1):GOTO1720 
1760 A=ASC(A$)-64:IF A<0 OR A>28 
THEN 1720 
1770 C$=C$+A$ 

1780 DRAW"XN$(A) ?BM+7,0?":C=C+1: 
IF 031 THEN 570 
1790 GOTO 1720 
1800 RETURN 
1810 REM INVENTORY 
1820 FOR X=1 TO 8:IF I(X)=0 THEN 
NEXTX:PCLS:DRAW"BM0,0 ?":S$ = "YOU 
ARE CARRYING NOTHING":GOSUB1100 
:RETURN 

1830 PCLS:DRAW"BM0,0?" 

1840 S$="YOU ARE CARRYING THE FO 
LLOWING " 

1850 GOSUB 1100 
1860 DRAW"BM0,20?" 

1870 FOR Y=1 TO 8 
1880 IF I(Y)=0 THEN NEXTY:RETURN 
1890 IF I(Y)=1 THEN S$="THE RING 
OF EQUINOX ":GOSUB1100:DRAW"BM- 
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247 , +10 ? 11 

1900 IF I(Y)=2 THEN S$="FLY IN A 
JAR":GOSUB 1100:DRAW'BM-247,+10 

• m 

1910 IF I(Y)=3 THEN S$="OIL CAN 
":GOSUB 1100:DRAW"BM-247,+10;" 
1920 IF I(Y)=4 THEN S$="A HEAVY 
KEY":GOSUB 1100:DRAW"BM-247,+10 ; 

it 

1930 IF I(Y)=5 THEN S$="A LONG R 
OPE":GOSUB 1100:DRAW"BM-247,+10; 

ii 

1940 IF I (Y) =6 THEN S$="SILVER C 
ROSS":GOSUB 1100:DRAW"BM-247,+10 

.ii 

/ 

1950 IF I(Y)=7 THEN S$="A OLD DI 

ARY":GOSUB 1100:DRAW"BM-247,+10; 
ii 

1960 IF I(Y)=8 THEN S$="A MEAT B 
ONE ":GOSUB1100:DRAW"BM-247,+10; 

it 

1970 NEXT Y:RETURN 
1980 REM DIRECTIONAL 
1990 IF C$="N" THEN 2060 
2000 IF C$="S" THEN 2170 
2010 IF C$="E" THEN 2300 
2020 IF C$="W" THEN 2410 
2030 IF C$="D" THEN 2540 
2040 IF C$="U" THEN 2570 
2050 RETURN 

2060 IF L=2 THEN L=l:RETURN 
2070 IF L=4 THEN L=2:RETURN 
2080 IF L=5 THEN L=4:RETURN 
2090 IF L=7 THEN L=5:RETURN 
2100 IF L=6 THEN L=3:RETURN 
2110 IF L=8 THEN L=9:RETURN 
2120 IF L=11THEN L=12:RETURN 
2130 IF L=12THEN L=11:RETURN 
2140 IF L=13THEN L=12:RETURN 
2150 IF L=15THEN L=13:RETURN 
2160 LINE(0,170)-(256,180),PRESE 
T, BF:DRAW"BM0,180;":S $="YOU CANN 
OT GO THAT WAY.":GOSUB 1100:FORT 
=1TO200:NEXT T: LINE (0,170) - (256 , 
180),PRESET:RETURN 
2170 IF L=1 AND BW=1 THEN L=2:RE 
TURN ELSE IF L=1 THEN LINE(0,170 
)- (80 f 180) f PRESET,BF:DRAW"BM0 # 18 
0;":S$="YOU WALKED INTO THE BRIC 
KWALL.":GOSUB1100:FORT=1TO300:NE 
XTT:LINE(0 / 170)-(256 / 180) / PRESET 
,BF:RETURN 

2180 IF L=2 THEN L=4:RETURN 
2190 IF L=4 THEN L=5:RETURN 
2200 IF L=8 AND PL=1 THEN L=18:R 
ETURN ELSE IF L=8 THEN LINE(0,17 


0) - (80,180) , PRESET, BF: DRAWBM0,1 
80;":S$="OPPS...BANGED INTO A WA 
LL. ":GOSUB 1100:FOR T=1 TO 500:N 
EXT T:LINE(0,170)-(256,180),PRES 
ET,BF:RETURN 

2210 IF L=5 AND PT=1 THEN L=7:RE 
TURN ELSE IF L=5 THEN LINE(0,170 
)-(80,180),PRESET,BF:DRAW"BM0,18 
0;":S$="NO WAY. I AM NOT GOING A 
CROSS.":GOSUB1100:FORT=1TO300:NE 
XTT:LINE(0,170)-(256,180),PRESET 
,BF:RETURN 

2220 IF L=3 THEN L=6:RETURN 
2230 IF L=9 THEN L=8:RETURN 
2240 IF L=11THEN L=10:RETURN 
2250 IF L=12THEN L=13:RETURN 
2260 IF L=13 AND LK=1 AND UD=1 A 
ND DD=1 THEN L=15:RETURN ELSE IF 
L=13 THEN LINE(0,170)-(256,180) 

,PRESET,BF:S$="THE DOOR IS NOT 0 
PENED YET.":DRAW"BM0,180;":GOSUB 
1100:FORT=1TO400:NEXT T:LINE(0,1 
70)- (256,180) ,PRESET,BF:RETURN 
2270 IF L=18THEN L=8:RETURN 
2280 IF L=19 THEN L=20:RETURN 
2290 GOTO 2160 
2300 IF L=2 THEN L=3:RETURN 
2310 IF L=9 THEN L=10:RETURN 
2320 IF L=11THEN L=12:RETURN 
2330 IF L=12THEN L=ll:RETURN 
2340 IF L=13THEN L=14:RETURN 
2350 IF L=16THEN L=15:RETURN 
2360 IF L=17THEN L=18:RETURN 
2370 IF L=3 AND D=1 THEN L=9:RET 
URN ELSE IF L=3 THEN LINE(0,170) 
-(256,180),PRESET,BF:S$="THE DEV 
IL YELLS..NO YOUR NOTDRAW"BM 
0,180;":GOSUB1100:FORT=1TO500:NE 
XTT: LINE (0,170) - (25 6,180) , PRESET 
,BF:RETURN 

2380 IF L=6 AND W=1 THEN L=8:RET 
URN ELSE IF L=6 THEN LINE(0,170) 
-(256,180),PRESET,BF:S$="PERSONA 
LLY I DO NOT LIKE WOLVES":DRAW"B 
M0,180;":GOSUB1100:FORT=1TO500:N 
EXTT:LINE(0,170)-(256,180),PRESE 
T,BF:RETURN 

2390 IF L=18 AND SP=1 THEN L=19: 
RETURN ELSE IF L=18 THEN LINE(0, 
170)-(256,180),PRESET,BF:S$="THE 
SPIDER WILL NOT MOVE OVER.":DRA 
W"BM0,180;":GOSUB1100:FORT=1TO50 
0:NEXTT:LINE(0,170)-(256,180),PR 
ESET,BF:RETURN 
2400 GOTO 2160 
2410 IF L=3 THEN L=2:RETURN 
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2420 IF L=9 THEN L=3 :RETURN 
2430 IF L=6 THEN L=4:RETURN 
2440 IF L=10THEN L=9:RETURN 
2450 IF L=12THEN L=ll:RETURN 
2460 IF L=11THEN L=12:RETURN 
2470 IF L=14THEN L=13:RETURN 
2480 IF L=8 THEN L=6:RETURN 
2490 IF L=15THEN L=16:RETURN 
2500 IF L=18 THEN L=17:RETURN 
2510 IF L=18 THEN L=17:RETURN 
2520 IF L=19 THEN L=18:RETURN 
2530 GOTO 2160 
2540 IF L=4 THEN L=6:RETURN 
2550 IF L=16 AND TD=1 THEN L=17: 
RETURN ELSE IF L=16 THEN LINE(0, 
170)- (256,180) ,PRESET,BF:DRAW'BM 
0,180 ?":S$=" THE TRAP DOOR IS NO 
T OPEN YET.":GOSUB1100:F0RT=1T05 
00:NEXTT:LINE(0,170)-(256,180),P 
RESET,BF:RETURN 
2560 GOTO 2160 
2570 REM UP 
2580 GOTO 2160 

2590 DATA BU1U4E1R2F1NG4D4G1L2H1 
BD1,U5E1R2F1D2NL4D3BL4,U6R3F1D1G 
1NL3F1D1G1L3,BU1U4E1R2F1BD4G1L2H 
1BD1,U6R2F2D2G2L2,U6R4BD3BL1L3D3 
NR4 

2600 DATA U6R4BD3BL1L3D3,BU1U4E1 
R3BD4NL1D2L3H1BD1,U6BR4D3NL4D3BL 
4,BU6BR1R2L1D6NR1L1BL1,BU6BR4D5G 
1L2H1BD1,U6D3R1NE3NF3BD3BL1 
2610 DATA NU6NR4,U6F2ND1E2D6BL4, 
U6D1F4NU5D1BL4,BU1U4E1R2F1D4G1L2 
H1BD1,U6R3F1D1G1L3D3,BU1U4E1R2F1 
D3G1NH1NF1G1L1H1BD1 
2620 DATA U6R3F1D1G1L3R1F3BL4,BU 
5BR4H1L2G1D1F1R2F1D1G1L2H1BD1,BU 
6R4L2D6BL2,BU1U5BR4D5G1L2H1BD1,B 
U6BR4D2G1D1G1ND1H1U1H1NU2BD4,NU6 
E2NU1F2NU6BL4 

2630 DATA BU6D1F2E2NU1BD4ND1H2G2 
D1,BU6BR4D1G2ND3H2NU1BD5,BU6R4D1 
G4D1NR4 

2640 DATA NR1NE1U1D1,BU3R5L5BD3 
2650 DATA BU1U4E1R2F1NG4D4G1L2H1 
BD1,BU6BR2NG1D6R1L2BL1,BU5E1R2F1 
D1G1L1G2D1NR4,BU5E1R2F1D1G1NL1F1 
D1G1L2H1BD1,BU2NR4U1E3D6BL3 
2660 DATA BU6NR4D3E1R2F1D2G1L2H1 
BD1,BU6BR2NR2G2D3U2R3F1D1G1L2H1B 
D1,BU6R4D1G3D2BL1,BU1U1E1NR1H1U1 
E1R2F1D1G1NL1F1D1G1L2H1BD1,BU4NF 
1U1E1R2F1D2NL3D1G2L2 
2670 DATA BU6D1F2E2NU1BD4ND1H2G2 
D1 


2680 DATA20,8,5,0,17,21,5,19,20, 
0,6,15,18,0,5,24,3,1,12,1,2,9,18 
2690 FOR X=1 TO 8:IF I(X)=8 THEN 
2700 ELSE NEXTX:LINE(0,170)-(25 
6,180),PRESET,BF: DRAW"BM0,180;" 
: S$="YOU DONT HAVE THE MEAT BONE 
. . . ":GOSUB 1100:FOR T=1 TO 500:N 
EXT T:LINE(0,170)-(256,180),PRES 
ET,BF:GOTO 610 

2700 PCLS:DRAW"BM0,0;":S $="THE W 
OLVES JUMP AT THE MEAT BONEAND E 
AT IT ALL UP. BOY THEY MUSTHAVE 
BEEN PRETTY HUNGRY. THEY SEEM 
TO HAVE TAKEN A LIKING TO YOU B 
ECAUSE THEYRE ALLOWING YOU TO PA 
SS.":GOSUB 1100:W=1 
2710 FOR X=1 TO 8:IF I(X)=8 THEN 
I(X)=0:GOTO610 ELSE NEXT X:GOTO 
610 

2720 REM WHAT OBJECT? 

2730 IF RIGHT$(C$,7)="EQUINOX" O 
R RIGHT$(C$,4)="RING" THEN 00=1: 
RETURN 

2740 IF RIGHT$(C$,3)="JAR" OR RI 
GHT$ (C$,10)="FLY IN JAR"THEN 00= 
2: RETURN 

2750 IF RIGHT$(C$,7)="0IL CAN" 0 
R RIGHT$(C$,3)="0IL" OR RIGHT$(C 
$,3)="CAN" THEN 00=3:RETURN 
2760 IF RIGHT$(C$,3)="KEY"THENOO 
=4: RETURN 

2770 IF RIGHT$(C$,4)="ROPE" THEN 
00=5:RETURN 



2780 IF RIGHT$(C$,5)="CROSS" OR 
RIGHT$(C$,6)="SILVER" OR RIGHT$( 
C$,12)="SILVER CR0SS"THEN00=6:RE 
TURN 
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2790 IF RIGHT$ (C$ , 5) ="DIARY" THE 
N 00=7:RETURN 

2800 IF RIGHT$(C$,4)="MEAT" OR R 
IGHT$(C$,4)= M BONE M OR RIGHT$(C$, 
9)="MEAT BONE" THEN 00=8:RETURN 
2810 00=0: RETURN 
2820 REM CAN'T DO THAT 
2830 LINE(0,170)-(256,180) ,PRESE 
T, BF: DRAW"BM0,180 ; " : S$="I TRIED 
BUT I CANNOT DO THAT.":GOSUB 11/8 
0 : FORT=1TO500 : NEXTT: LINE , 17/25) - 
(256,18/3) , PRESET ,BF:G0T061/3 
284/3 REM NOT HERE 
285/3 LINE (0 ,17/3 )-(256,18/3) ,PRESE 
T , BF: DRAW"BM/3,18/3 ; " : S$ = "IT IS NO 
T HERE IN THIS ROOM.":GOSUB 11/3/3 
: F0RT=1 TO 5/3/3 : NEXTT: LINE (/3,17/3) 
-(256,18/3) , PRESET, BF:G0T061/3 
286/3 REM TAKE 
287/3 SOUND 1/3/3,1 
288/3 O (L, X) =/3 

289/3 FOR X=1 TO 8: IF I(X)=/3 THEN 
291/3 ELSE NEXTX 
29/3/3 X=8 
291/3 I(X)=00 

292/3 LINE (/3,17/3)-(256,18/3) , PRESE 
T , BF: G0T061/3 
293/3 REM ROLL 

294/3 IF RIGHT$(C$,4)="RING" THEN 
IF L=1 THEN 2 96/3 

295/3 LINE(/3,17/3)-(256,18/3) ,PRESE 
T ,BF: DRAW"BM/3,18/3 ; " : S$="SORRY YO 
U CANNOT DO THAT.":GOSUB 11/3/3: FO 
RT=lT05/3/3 : NEXTT: LINE (/3,17/3) - (2 5 6 
,18/3) , PRESET,BF:G0T061/3 
296/3 IF L=1 AND BW=1 THEN LINE (^ 
, 17/3) -(25 6, 18/3) , PRESET, BF: DRAW"B 
M/3,18/3; ":S$="NOTHING SPECIAL HAP 

PENS." : GOSUB11/3/3 : F0RT=lT05/3/3 

:NEXTT: LINE (/3,17/3) - (256,18/3) , PRE 
SET , BF: G0T061/3 

297/3 BW=1: LINE (/3,17/3) - (256,18/3) , 
PRESET, BF: DRAW "BMP , 18/3 ; " : S$="THE 
RING GLOWS. A DOOR OPENS.":GOSU 
B1100 : F0RT=lT05/3/3 : NEXTT: LINE (0,1 
7/3) -(2 56,18/3) , PRESET, BF:G0T06/3/3 
298/3 PCLS 
299/3 DRAW"BM/3,/3;" 

3000 S$="S N E W D DIRECTIONS 
INVENTORY INVENT INV I 
SHINE TOSS USE JUMP 
FEED PULL OPEN CLIMB 
READ ROOM LOOK SQUISH 
GET TAKE DROP PUT 
OIL POINT RUB":G0SUB11 

00 


3010 RETURN 

3020 LINE(0,170)-(256,180),PRESE 
T,BF:GOTO610 

3030 LINE(0,170)-(256,180),PRESE 
T,BF:RETURN 

3040 PCLS:DRAW"BM0,0;" 

3050 F0RX=1T08 : IFI (X) 07THENNEXT 
X:S$="YOU DO NOT HAVE THE DIARY. 

":GOSUB1100:FORT=1TO500:NEXTT:GO 
TO3020 

3060 IF L=13 THEN S$="THE DIARY 
HAS A ENTRY THAT SAYS SOMETHING 

ABOUT.A PIN HAS ONE TO USE 

THE RING. THE KEY IS TWO TO FIN 
ISH THE JOB.":GOSUB1100:F0RT=1T0 
500:NEXTT:GOTO3020 
3070 IF L=10 THEN S$="THE WAY TO 
GO IS NOT ALWAYS THE NORMAL IN 
THIS CRAZY MIXED UP PLACE.":GO 
SUB 1100:F0RT=1 TO 500:NEXT T:GO 
TO 3020 

3080 IF L=20 THEN S$="THE THING 
IS STUCK..RIGHT..WELL I THINK YO 
ULL HAVE TO FIND OUT YOURSELF S 
FOILING IT.»:GOSUB1100:FORT=1TO5 
00:NEXTT:GOTO3020 

3090 S$="THE PAGE READS. 

I AM ALMOST DEAD BUT I 
AM LEAVING THIS DIARY FOR 

ANYONE WHO WISHES TO REACH THE 

SWORD OF EXCALABIR. GOOD LUCK 

FRIEND.":GOSUB1100:FOR T=1TO500 
:NEXTT:GOTO3020 
3100 PCLS:DRAW"BM0,0;" 

3110 IF PL=0 THEN 3120 ELSE S$=" 
THE DOOR LEADING DOWN IS HAS 
ALREADY BEEN OPENED BY PULLING 
THE PLANK ON THE FLOOR.":GOSUB 1 
100:GOTO 610 

3120 S$="THE PLANK MUST HAVE BEE 
N A SECRET SWITCH FOR A TRA 

P DOOR BECAUSE WHEN YOU PULLED 
IT A DOOR LEADING SOUTH WAS 
EXPOSED.":GOSUB1100:PL=1:GOTO610 
3130 IF L=10 THEN S$="THERE IS A 
N ELEVATOR BEHIND THE DOOR. YOU 
TAKE IT TO THE NEXT FLOOR AND 
GET OFF.":PCLS:DRAW"BM0,0;":GOSU 
B 1100:FOR T=1 TO 500:NEXTT:L=11 
:GOTO610 

3140 IF L=13 AND LK=0 THEN S$="T 
HE LOCK IS FROZEN MAKING IT I 
MPOSSIBLE TO OPEN.":PCLS:DRAW"BM 
0,0;":GOSUB1100:GOTO610 
3150 IF L=13 AND LK=1 AND UD=1 T 
HEN PCLS:DRAW"BM0,0;":S$="THE DO 
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OR OF THE CABIN IS NOW OPEN. 
TO ENTER IT GO SOUTHDD=1:GOSU 
B1100: GOTO610 

3160 IF L=13 AND LK=1 AND UD=0 T 
HEN PCLS:S$="THE DOOR IS LOCKED. 

THE LOCK ON THE DOO 
R SEEMS VERY SOLID. " : DRAW"BM0, 0 ; 

" : GOSUB1100 : GOTO610 
3170 S$="THE DOOR IS EITHER ALRE 
ADY OPEN OR THERE IS NO DOOR HER 
E. " : PCLS: DRAW" BM0, 0 ; » : GOSUB11 0 0: 
GOTO610 

3180 PCLS:DRAW"BM0,0;":S$="THE S 
PIDER DIDNT SEEM TO ENJOY THE T 
HOUGHT OF GETTING SQUISHED SO HE 
PULLED YOU INTO HIS WEB AND H 

AD SUPPER_GUESS WHAT... GAME 

OVER. " : GOSUB1100 : GOTO3590 
319)3 PCLS : DRAW"BM0 , 0 ; " : S$="THAT 
WAS CRAZY..THE PIT WAS TOO WIDE 
TO JUMP. YOU FEEL YOUR BODYFALLI 
NG AND FALLING. I THINK YOUARE.. 

. DEAD. 

GAME OVER" : GOSUB1100 : G0T0359 

J3 

32)3)3 IF RIGHT$ (C$ , 6) ="WOLVES" AN 
D L=6 THEN 3 2 3)3 

321) 3 IF RIGHT $ (C$,6) ="SPIDER" T 
HEN 325)3 

322) 3 LINE (0 # 17)3) - (256,18)3) ,PRESE 
T, BF: DRAW"BM0,180 ; ": S$="YOU CANT 

FEED THAT." : GOSUB1100 : FO 

RT=1TO500 :NEXTT: LINE (0 f 170) - (2 56 
, 18)3) , PRESET, BF : G0T0610 
3230 FOR X=1 TO 8:IF I(X)=8 THEN 
3240 ELSE NEXT X:PCLS:DRAW"BM0, 
0;":S$="THERE IS NOTHING IN YOUR 
INVENT THAT THE WOLVES WANT.":G 
OSUB1100:GOTO610 

3240 I(X)=0:PCLS:DRAW"BM0 / 0;":S$ 
="THE WOLVES SAY... THANK YOU FO 
R OFFERING AND ATTACK YOU. TOO B 

ADTHE ADVENTURE IS OVER." : 

GOSUB1100:GOTO3590 
3250 FOR X=1 TO 8:IF I(X)=2 THEN 
3260 ELSE NEXTX:PCLS:DRAW"BM0,0 
;»:S$="THE SPIDER SEEMS ENTHUSIA 
STIC BUT THERE SEEMS TO BE NOT 
HING YOU HAVE THAT HE COULD EA 
T.":GOSUB1100:GOTO610 
3260 I(X)=0:PCLS:DRAW"BM0, 0;" : S $ 
="THE SPIDER EXCEPTS THE FLY AND 
THANKS YOU. HE SAYS... 

BOY ITS BEEN A LONG TIME SINCE 
IVE HAD A REAL FLY MMMMMM. YOU 
CAN PASS FRIEND.":GOSUB 1100:S 


P=1:GOTO610 

3270 GOSUB2720: IF 0004 OR L<>13 
THEN LINE(0,170)-(256,180),PRESE 
T,BF:S$="YOU HAVE NO USE FOR IT 
HERE.":DRAW"BM0,180;":GOSUB1100: 
FORT=1T0500:NEXTT:LINE(0,170)-(2 
56,180),PRESET,BF:GOTO610 
3280 IF LK=0 THEN PCLS:DRAW"BM0, 
0;":S$="THE LOCK IS FROZEN SO TH 
E KEY CANNOT GO INTO THE LOCK. 
":GOSUB1100:GOTO610 
3290 PCLS:DRAW"BM0,0;":S$="THE L 
OCK WAS HARD TO UNLOCK BUT IVE D 
ONE IT.":GOSUB1100:UD=1:GOTO610 
3300 GOSUB2720: IF 0006 OR L<>3 
THEN LINE(0,170)-(256,180),PRESE 
T,BF:S$="YOU CANNOT USE SHINE HE 
RE.":DRAW"BM0,180;":GOSUB1100:FO 
RT=1TO500:NEXTT:LINE(0,170)-(2 56 
,180),PRESET,BF:G0T0610 
3310 IF 00=6 AND L=3 THEN F0RX=1 
T08:IFI(X)<>6 THENNEXTX:PCLS:DRA 
W"BM0,0;":S $="YOU ARE TRYING TO 
CHEAT BY USING AN OBJECT YO 

U DO NOT TRULYHAVE. TISK TISK.": 
GOSUB1100:GOTO610 
3320 IF 00=6 AND L=3 THEN PCLS:D 
RAW"BM0,0 ,* " : S$="THE CROSS DESTRO 
YES THE EVIL SPIRIT. YOU CAN 
NOW PASS.":GOSUB 1100:GOTO610 
3330 PCLS:DRAW"BM0,0;":S$="I DON 
T THINK THAT WILL WORK.":G0SUB11 
00:GOTO610 

3340 GOSUB2720: F0RX=1T08 : IFOOOl 
(X) THEN NEXTX:GOTO3370 ELSE IF 
00=6 AND L=3 THEN 3350 ELSE IF O 
0=1 AND L=13 THEN 3360 ELSE 3370 
3350 IF D=1 THEN 3370 ELSE PCLS: 
DRAW"BM0,0 ,* " : S$="THE CROSS SHAKE 
S AND A BEAM OF LIGHT PIERCES T 
HE DEMON SENDING IT BACK TO WHER 
E IT CAME.":GOSUB1100:D=l:G0T061 
J3 

3360 IF LK=1 THEN 3370 ELSE PCLS 
:DRAW"BM0,0;":S$="THEN RING BEGI 
NS TO WARM UP HEATING THE LO 

CK WITHOUT BURNINGYOUR HAND. YOU 
RE AMAZED TO FIND THE LOCK UNFRO 
ZEN.":GOSUB1100:LK=1:GOTO610 
3370 PCLS:DRAW"BM0,0;":S$="NOTHI 
NG SEEMS TO HAPPEN WHEN YOU P 

OINT THAT OBJECT.":G0SUB11 

00:GOTO610 

3380 PCLS:DRAW"BM0,0;":IF L<>20 
THEN S$="THERE IS DEFINATELY NOT 
HING IN THIS ROOM THAT NEEDS 01 


104 








LING . " : GOSUB11J3J3 : G0T061j3 
3390 S$="THE SWORD SEEMS TO HAVE 
BECOME LOOSE FROM THE OIL.":OS 
=1: GOSUB11J3J3 : G0T06 10 
3400 PCLS:DRAW"BMJ3,J3;":IF L<>2j3 
THEN S$="YOU ARE NOT YET IN THE 
ROOM OF THE SWORD. SORRY I CANT 
HELP YOU . " : GOSUBllj3j3 : G0T061J3 
341J3 IF OS=0 THEN S$="THE SWORD 
IS FAR FAR INTO THE CEMENT FLO 
OR. IT MUST BE RUSTEDGOSUBllj3 
0 : G0T061J3 

3420 S$="THE SWORD FLIES FROM TH 
E CEMENT MAKING A SHARP METALLIC 
SOUND AND LEAVING A SMALL HOL 
E IN THE FLOOR. YOU ARE ALMOST P 
REPARED YOU HEAR A VOICE SAY. 

CONGRATULATIONS...PART 
TWO END": GOSUB11J3J3 
343J3 GOTO 343j3 

344J3 PCLS:DRAW"BMj3,j3;":IF L=15 T 

HEN S $=".I FEEL FUNNY. 

.BANG BANG BANG BANG BANG 

BANG THATS STRANGE I WASNT HE 
RE. " : GOSUB11J3J3 : L=19 : G0T061j3 
3450 S$="THERE SEEMS TO BE NO ST 
OVE HERE UNLESS ITS HIDDEN.":GOS 
UB11J3J3: G0T061J3 

3460 PCLS : DRAW"BMJ3 , J3 ; " : IF L=16 T 
HEN TD=1:S$="THE TRAP DOOR WAS V 
ERY EASY TO OPEN USING THAT HAN 
GER THANKS FOR THE HELP.":GOSU 
B11J3J3: G0T061J3 

3470 S$="THERE SEEMS TO BE NO HA 
NGER HEREMAYBE YOUR THINKING ABO 
UT A CLOSET SOMEWHEREGOSU 


B11J3J3: G0T061J3 

348J3 G0SUB3J33J3:DRAW"BMJ3,18j3;" 
3490 F0RX=1T08:IFI(X)<>00 THENNE 
XTX:S$="YOU DO NOT HAVE THAT OBJ 
ECT. " : GOSUB11J3J3 : F0RT=1T05J3J3 : NEXT 
T: G0T03J32J3 

3500 IF 00=5 AND L=5 THEN PT=1:I 
(X) =0: S$="THE ROPE HAS EXTENDED 
ACROSS . " : GOSUB11J3J3 : F0RT=lT05j3j3 : N 
EXTT: G0T03 J32 J3 

351J3 F0RX=1T08 : IFO (L, X) =J3THEN0 (L 
,X)=00 ELSENEXTX:S$="YOU CAN NOT 
DROP IT HERE . " : GOSUB11J3J3 : F0RT=1 
T05J3J3 : NEXTT: G0T03 020 
3520 F0RX=1T08:IF I(X)=00 THENI( 
X) =J3ELSENEXTX 

3530 S$="OK. I HAVE DROPPED IT." 
: GOSUB11J3J3 : F0RT=lT05j3j3 : NEXTT: GOT 
03J32J3 

354J3 GOSUB3j33j3:DRAW"BMj3,18j3;" 
355J3 GOSUB272J3 : IF00=J3THENS$ = "I D 
ONT THINK IT IS HUNGRYG0SUB11 
00 : F0RT=lT05j3 0: NEXTT: G0T03 020 
3560 IF 0004 THENS$ = "YOU CANNOT 
FEED THAT. " :G0SUB11J3J3 : F0RT=1T05 
00 : NEXTT: G0T03J32J3 
3510 F0RX=1T08 : IFI (X) 04THENNEXT 
X:S$="YOU ARE NOT HOLDING IT.":G 
OSUBllj3j3 : F0RT=lT05j3j3 : NEXTT: G0T03 
020 

358J3 F0RX=1T08 : IFI (X) 05THENNEXT 
X:S$="YOU HAVE NOTHING TO FEED I 
T. " : GOSUB11J3J3 : F0RT=lT05j3j3 : NEXTT: 
G0T03J32J3 

359j3 IF INKEY$OCHR$ (13) THEN 3 
59J3 ELSE RUN 


SHIELD 


32K ECB 


THE 

SWORD 


SORCERER 
PRRT THREE 

THE JOURNEY FOR THE SHIELD 
PROGRAMMED BY CHRIS MCKERNHN. 


10 CLEAR ipfi :DIM R$ (2fl), 0(20,8), 

I(l£) 

DIM N$(28),A$(1^) 

POKE 65495,1 

40 FORX=0 TO 2 8:READ N$(X):NEXT 
50 FOR X=0 TO 10 :READ A$(X):NEXT 
60 PM0DE4,1:COLORS,1:PCLS:SCREEN 
1,1:POKE 65314,255 
70 DRAW"BM7)3,4j3?Cj3;S12;XN$(19) ?B 
M+7,)3;XN$ (23) ?BM+7 ,0 ?XN$ (15) } BM+ 
7,0;XN$(18) ;BM+7,^,*XN$ (4) 

80 DRAW'BMip^,16;C^;S8;XN$ (20 );B 
M+7 ,^;XN$ ( 8 ) ;BM+7,)3;XN$(5) ? " 

90 F0RX=1T02: PLAY"L2J3)3ABCDEFGBCD 
EFGCDEFGDEFGEFGFGGGFGFEGFEDGFEDC 
GFEDCBGFEDCBA":NEXT X 
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100 DRAW"BM110,60;C0;S4;XN$(1);B 
M+8,0;XN$(14);BM+8,;XN$(4) 

110 DRAW"BM100,80;C0;S8;XN$(20); 
BM+7,0;XN$(8);BM+7,0;XN$(5) 

120 DRAW"BM40,104;S12;XN$(19);BM 
+7,0 ;XN$(15);BM+7,0;XN$(18);BM+7 
,0;XN$(3);BM+7,0;XN$(5);BM+7,0;X 
N$(18);BM+7,0;XN$(5);BM+7,0;XN$( 
18) ;» 

130 DRAWBM23,134 ;C0;XN$ (16) ;BM+ 
7,0;XN$(1);BM+7,0;XN$(18);BM+7,0 
;XN$(20);BM+13,0;XN$(20);BM+7,0; 
XN$ (8) ;BM+7,0;XN$(18) ;BM+7,0;XN$ 
(5);BM+7, 0;XN$(5);" 

140 DRAW"BM10,160;C0;S4;" 

150 FOR X=1 TO 26 

160 READ DT:IF DT=0 THEN DRAW'BM 

+13,0;":NEXTX:GOTO200 

170 DRAW"XN$(DT);BM+9,0;" 

180 SOUND X,1:NEXT X 
190 DRAW"BM0,180;":S$=" PROGRA 

MMED BY CHRIS MCKERNAN.":GOSUB11 
00 

200 IF INKEY$="" THEN 200 

210 PMODE4,1:COLOR0,1:PCLS:SCREE 

N1,1 

220 DRAW "BM0,0;" 

230 S$="SO YOU HAVE COMPLETED PA 
RT ONE AND PART TWO...PRETTY EA 
SY EH WELL NOW THINGS ARE GOIN 
G TO GET HARD. THIS PART HAS 
MANY WAYS OF DYING SO TYPE CA 
REFULLY. 

II 

240 L=0 

250 FOR X=1 TO LEN(S$) 

260 A$=MID$(S$,X,1):A=ASC(A$)-64 
270 IF A=-18 THEN A=27 
280 L=L+1:IF L=33 THEN L=1:DRAW" 
BM-249,+10 ?" 

290 IF A=32 OR A=-32 THEN DRAW" 
BM+7,0 ?":NEXT XlGOTO 310 
300 DRAW"XN$(A)?BM+7/0?":NEXT X 
310 S$=" THIS WILL BE YOUR FIN 
AL QUEST BEFORE MEETING THE PO 
WERFUL EVIL WIZARD. AT THE B 

EGINNING OF THE GAME YOU WILL 
HAVE IN YOUR POSESSION THE SW 
ORD AND THE RING. THE HINT AN 
D HELPFUL BOOKS HAVE BEEN ELIMI 


NATED ..SORRY.." 

320 Z=Z+1:IF Z=1 THEN 250 

330 S$=" O 

K HERE IS ONE HINT. T 

HERE IS A MAGIC WORD TO BE F 

OUND THAT WILL HELP IN THE B 


ATTLE WITH THE SORCERER. BYE" 

340 Z=Z+1:IF Z=3 THEN 250 

350 IF INKEY$="" THEN 350 ELSE S 

OUND 100,1 

355 PLAY "L10?ABCCDDE? ? ?ABCCDDE? 

? ?DDCC?? ?EECC ?? ?EEDDCC ? ??L255?" 
360 PCLS:SCREEN1,1 
370 R$(1)="YOU ARE IN THE ROOM 0 
F THE SWORD EXCALABIR. A PA 

SSAGE SLOPES TO THE SOUTH." 

380 R$ (2)="YOU ARE IN A LONG SLO 
PING ROCK PASSAGE. TORCHES LIGH 
T THE WAY. THERE IS A DOOR LEADI 
NG WEST." 

390 R$ (3)="YOU ARE IN A ROOM BUZ 
ZING WITH ELECTRICITY. A FORCE 
FIELD STANDS BEFORE YOU TO 

THE WEST." 

400 R$ (4)="YOU ARE IN A CAVERN C 
ONTAINING SEVERAL LITTLE GREEN 
SHRUBS. A BRICKWALL STANDS TO T 
HE WEST." 

410 R$(5)="YOU ARE AT THE SOUTH 
END OF A ROCKY CAVERN. IN FRON 
T OF YOU IS A LARGE POOL OF WA 
TER." 

420 R$ (6)="YOU ARE STANDING IN A 
SHALLOW POOL OF WATER IN A SM 
ALL ROOM. THE WATER IS CRYSTAL 
CLEAR." 

430 R$(7)="YOU ARE IN A ROOM FIL 
LED WITH GREEN PLANTS. SUNLIGH 
T BEAMS DOWN FROM A HOLE IN T 
HE ROOF" 

440 R$ (8)="YOU ARE IN A DARK PLA 
NT FILLED CHAMBER. A LARGE BLAC 
K CROW IS PERCHED ON A BRANCH B 
ESIDE YOU." 

450 R$(9)= M YOU ARE ENTERING A .. 
L.. SHAPED HALLWAY. THE HALLWAY 
EXITS TO THE WEST." 

460 R$(10)="YOU ARE IN A DIMLY L 
IT ROOM. THE ONLY WAY OUT IS 
EAST. THE IS SPARKLING POO 

L HERE." 

470 R$(11)="YOU ON A SHORE AT TH 
E WEST END OF A LARGE POOL OF W 
ATER. 11 

480 R$(12)="YOU ARE IN THE LAB 0 
F THE EVIL SORCERER. EQUIPMENT 
LITTERS THE FLOOR. EXITS DOWN AN 
D EAST." 

490 R$(13)="YOU ARE IN A DARK TO 
RCH LIT ROOM. THE ONLY EXIT 

IS TO THE SOUTH." 

500 R$(14)="YOU ARE IN A ANCHIEN 
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T CONJURING ROOM. SMALL INCANTAT 
IONS ARE WRITTEN ON THE WALLS 

»i 

510 R$(15)="YOU ARE IN A RED SMO 
KE FILLED ROOM. THERE ARE TWO 
LARGE DOORS TO THE SOUTH AND EAS 
T ." 

520 R$ (16) ="YOU ARE IN A BLUE SM 
OKE FILLED ROOM. TWO PASSAGES L 
EAD DOWN TO THE EAST AND WEST. . 
COUGH." 

530 R$ (17 ) = " YOU NOW STAND IN THE 
ROOM OF THE WORM. PICTURES 0 
F WORMS ARE PAINTED ALL OVER THE 
WALLS." 

540 R$(18)= " YOU ARE IN A WESTERN 
ALTER ROOM.TWO MARBLE PILLARS A 
RE IN THE ROOM. IT IS VERY MUS 
TY HERE." 

550 R$(19)="YOU ARE IN A STONE P 
ASSAGE THAT EXTENDES DEEP INTO T 
HE GROUND. A LARGE INCH WORMS S 
TANDS HERE." 

560 R$(20)="YOU ARE IN A ROOM CO 
NTAINING THE SHIELD. A DOME C 
OVERS IT. THE AIR IS FULL OF M 
AGIC." 

570 L=1: D2=0 : D1=0: BS=0 : DM=0: SH=0 
580 FF=0:CR=0:EL=0:FI=0:MW=0 
590 0(2,1)=3:0(4,1)=5:0(5,1)=9:0 
(6,1)=8:0(11,1)=7:0(12,1)=4:0(15 
,1)=6:0(18,1)=10:I(1)=1:I(2)=2 
600 PCLS:GOSUB 1170:GOSUB 1020 
610 GOSUB 1620 

620 IF C$="I" OR C$="INV" OR C$= 

"INVENT" OR C$="INVENTORY" THEN 

GOSUB 1810:GOTO610 

630 IF LEFT$(C$,4)="SWIM" THEN 3 

400 

635 IF LEFT$(C$,3)="GET" AND RIG 
HT$(C$,6)="SHIELD" AND SH=1 THEN 
S$="YOU HAVE COMPLETED YOUR LAS 
T QUEST. AND WILL DEFEND YOUR 
SELF AND CONQUER THE EVIL SORCER 
ER IN THE NEXT ADVENTURE. REST 

WELL MY FRIEND_":PCLS:DR 

AW"BM0,10;":GOTO3 600 

640 IF LEFT$(C$,5)="THROW" AND R 
IGHT$(C$,3)="PIN" THEN IF L=3 TH 
EN S$="YOUVE THROWN THE PIN INTO 

THE FORCE FIELD. SPARKS FLY A 
ND THE FIELD DISAPPEARS.":PC 

LS:DRAW"BM0,10;":GOSUB1100:FF=1: 
GOTO610 

641 IF LEFT$(C$,4)="LOOK" AND RI 
GHT$(C$,4)="DOME" AND L=20 AND D 


M=1 THEN S$="THE DOME SEEMS TO B 
E WEAKENED.":GOTO 3021 
645 IF LEFT$(C$,4)="LOOK" AND RI 
GHT$(C$,4)="POOL" AND (L=6 OR L= 
11 OR L=5) THEN S$="YOU SEE NOTH 
ING SPECIAL.":GOTO3021 ELSE IF L 
EFT$(C$,4)="LOOK" AND RIGHT$(C$, 
4)="POOL" AND L=10 THEN 3221 
650 IF C$="LOOK" OR C$="L" THEN 
GOTO 600 

660 IF C$="N" OR C$="S" OR C$="E 

" OR C$="W" OR C$="U" OR C$="D" 

THEN GOSUB 1980:GOTO 600 

700 IF LEFT$(C$,4)="PICK" THEN 3 

190 

705 IF LEFT$(C$,5)="THROW" AND ( 
RIGHT$(C$,9)<>"RED STONE" AND RI 
GHT$ (C$,10)<>"BLUE STONE") AND R 
IGHT$(C$,5)="STONE" THEN S$="PLE 
ASE BE MORE SPECIFIC...":GOTO302 
1 

710 IF LEFT$(C$,5)="THR0W" AND R 
IGHT$(C$,5)<>"STONE" THEN S$="TH 
ROWING THAT OBJECT DOESNT WORK": 
GOTO 3021 ELSE IF LEFT$(C$,5)="T 
HROW" THEN 3210 

720 IFLEFT$(C$,4)="GIVE" AND (RI 
GHT$ (C$,4)< >"WORM" ANDRIGHT$(C $, 
6)<>"POTION") THEN S$="THAT IS T 
RULY A CRAZY STATEMENT.":GOTO302 
1 ELSEIFLEFT$(C$,4)="GIVE"THEN32 
00 

730 IF LEFT$(C$,4)="WEAR" AND RI 
GHT$(C$,6)="GL0VES" THEN 3220 
740 IF LEFT$(C$,3)="GET" OR LEFT 
$(C$,4)="TAKE" THENGOSUB2720:IFO 
O=0THEN2820ELSE:F0RX=1T08:IFO(L, 
X)<>00 THENNEXTX:GOTO2840 ELSE 2 
860 

750 IF C$="VOC" THEN GOSUB2980:G 
OTO610 

760 IF LEFT$(C$,5)="CLIMB" THEN 
PCLS:S$="THAT ISNT FUNNY. IF YOU 
WANT TO CLIMB SO BAD WHY DONT Y 
OU GO TO THE PLAY GROUND.":DRAW" 
BM0,0 ?":GOSUB1100:FORT=1TO500:NE 
XTT:GOTO610 

770 IF LEFT$(C$,5)="CATCH" AND R 
IGHT$(C$,3)<>"EEL" THEN S$="IT W 
ILL NOT ALLOW YOU TO...":GOTO302 
1 ELSE IF LEFT$(C$,5)="CATCH" AN 
D RIGHT$(C$,3)="EEL" THEN 3230 
780 IF LEFT$(C$,3)="USE" AND (RI 
GHT$(C$,3)="KEY" OR RIGHT$(C$,5) 
="SWORD") THEN 3240 
790 IF LEFT$(C$,3)="SET" AND RIG 
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HT$(C$,4)="B0MB" THEN 3 2 5)3 

8) 3)3 IF LEFT$(C$ / 3)="USE" AND RIG 

HT$(C$,6)="GLOVES" AND L=3 THEN 
PCLS:S$="THE FORCE FIELD WAS MUC 
H TO STRONG FOR THE RUBBER G 

LOVES. THE SHOCK TO YOUR BODY 

WAS TOO MUCH.YOUR DEAD. 

" : DRAW"BMJ3,1)3 ; " : G0SUB11)3)3: G0T035 

9) 3 

81) 3 IF LEFT$ (C$,5) ="SHINE" THEN 
33)3)3 

82) 3 IF LEFT$(C$ / 4)="DROP" OR LEF 
T$(C$,3) ="PUT" THENGOSUB272j3: GOT 
0348)3 

83) 3 IF LEFT$(C$ / 5)="POINT" THEN 
334)3 

835 IF C$="ROOM" OR C$="R" OR C$ 
="RO" THEN GOSUB 89)3: GOTO 61)3 

84) 3 IF C$="QUIT" OR C$="END" THE 



86) 3 LINE ()3,17)3) - (256,18)3) ,PRESET 
, BF: DRAW"BM)3, 18)3; " : S$="SORRY THA 
T IS NOT POSSIBLE. ":GOSUBll)3)3:FO 
RT=1T05J3J3 :NEXTT: GOTO 3)3 2)3 

87) 3 GOTO 87J3 

88) 3 REM OBJECTS IN ROOM 

89J3 PCLS: DRAW"BM9 , )3 ; " : S$="THINGS 

IN THE ROOM.GOSUB 11)3)3 

9)3)3 CR$ = "BM-247, + l)3;" : DRAW CR$ 

91) 3 FOR Y=1 TO 8 

92) 3 IF O (L, Y) =1 THEN S$="THE SWO 
RD EXCALABIR.": GOSUB 11)3)3: DRAW"B 
M-247 , +1)3 ; " 

93J3 IF O (L, Y) =2 THEN S$ = "THE RIN 
G EQUINOX. GOSUB 11J3J3:DRAW CR$ 
94J3 IF O (L, Y) =3 THEN S$ = "RUBBER 
GLOVESGOSUB Hj3j3:DRAW CR$ 

95J3 IF O (L, Y) =4 THEN S$="A CRYST 
AL BOMB.": GOSUB 11J3J3:DRAW CR$ 


96J3 IF O (L, Y) =5 THEN S$="A BABY 
INCH WORM.":GOSUB Hj3j3:DRAW CR$ 
97J3 IF O (L, Y) =6 THEN S$="A MAGIC 
POTION.": GOSUB Ilj3j3 : DRAW CR$ 

98j3 IF O (L, Y) =7 THEN S$="A BOBBY 
PIN.": GOSUB Ilj3j3 : DRAW CR$ 

99J3 IF O (L, Y) =8 THEN S$="A SILVE 
R KEY." :GOSUBllj3j3: DRAW CR$ 

991 IF O(L,Y)=9 THEN S$="A GLOWI 
NG BLUE STONE. " : GOSUBllj3j3 : DRAWCR 
$ 

992 IF O (L, Y) =1J3THEN S$="A GLOWI 
NG RED STONE. " : GOSUB11J3J3: DRAWCR$ 
Ij3j3j3 NEXTY: RETURN 

1J31J3 GOTO 1J31J3 

Ij32j3 REM ROOM DISCRIPTION 

Ij33j3 REM 

Ij39j3 DRAW"BMJ3,145 ; " : S$=R$ (L) :GOS 
UBllj3j3: RETURN 

11J3J3 C=j3: FOR X=1 TO LEN(S$) 

111J3 A$=MID$ (S$, X , 1) :A=ASC(A$)-6 
4 

112j3 C=C+1: IF C=3 3 THEN C=1:DRAW 
"BM-24 9, +1J3 ; " 

113j3 IF A=32 OR A=-3 2 THEN DRAW" 
BM+7, j3 ; " : NEXTX: RETURN 
114J3 IF A=-18 THEN A=2 7:GOTO 114 
J3 ELSEDRAW"XN$(A) ;BM+7,J3;" 

115J3 NEXTX:RETURN 
116J3 GOTO 116J3 

117j3 LINE (p /i 0)-(256 / 137) ,PSET,B 
118J3 ON L GOTO 134)3,137)3,138)3,13 
9)3,14)3)3,152)3,141)3,141)3,142)3,143)3 
, 14)3)3,144)3,145)3,146)3,147)3,147)3,1 
48)3,149)3,137)3,151)3 

133) 3 PRINT "ROOM ERROR! PLEASE RE 
RUN":END 

134) 3 LINE ()3,1)3)3 )-(256,137) , PSET 
,BF:LINE (145,115)-(155,117),PRE 
SET,BF:FOR X=ll)3 TO 146 STEP 2:L 
INE (X, 5)3)-(X, 1)3)3) ,PSET:NEXT X:LI 
NE (11)3,5)3) -()3,)3) , PSET: LINE (146,5 
)3)-(256,)3) , PSET 

136) 3 RETURN 

137) 3 DRAW"BM)3,)3;F25G1)3F1)3G25F1)3G 
15F25M)3,137 ; " 

1371 DRAW"BM255, )3; G25F1)3G1)3F25G1 
)3F15G25M255,137 ; " 

1372 PAINT (128,2)3),)3 

1373 IF L=2 THEN RETURN ELSEDRAW 
"BM8 8,5)3 ; C1G1)3F1)3R2)3E1)3F1)3R2)3E1 

)3H1)3L2)3H1)3G1)3L2)3C)3;" 

1374 CIRCLE (98,6)3) ,7,1: CIRCLE (14 
2,6^),7,1 

1375 RETURN 

138) 3 LINE()3, )3) - (2)3,137) , PSET, BF : 
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LINE(236,0)-(256,137),PSET,BF:IF 
FF=1 THEN RETURN ELSEF$="F20E20 
F20E20F20E20F20E20F20E20F16;":DR 
AW"BM20,20;XF$;» 

1381 F2$="F20E10F10E20F10E10F20E 
10F10E20F10E10F20E10F10E20F10E10 
F20E10F10E20F10E10F20E10F10E20F1 
0E10F16;" 

1382 DRAW"BM20,30;XF2$;" 

1383 DRAW"BM20,40;XF$;BM20,50;XF 
2 $;BM20,60;XF$;BM20,70;XF2$;BM20 
,90;XF$;BM20, 100;XF2 $;" 

1389 RETURN 

1390 SR$="R20E10H10R5H10G10U10G5 
D15L10F10;":LINE(0,100)-(256,100 
),PSET:DRAW"BM30,120;XSR$;" 

1391 DRAW"BM60,125;XSR$;BM90,110 
;XSR$;" 

1392 FOR X=0 TO 10 STEP 2:LINE(X 
,0)-(X,137),PSET:NEXT X 

1393 DRAW"BM130,120;XSR$;BM150,1 
07;XSR$;" 

1399 RETURN 

1400 FOR X=0 TO 256 STEP 2:LINE 
(X,101)-(X,137),PSET:NEXT X:FOR 
X=1 TO 256 STEP 2:LINE (X,0)-(X, 
99),PSET:NEXT X:FORX=l TO 25:XX= 
RND(255):YY=RND(37):PSET(XX,YY+1 
00,0):NEXT X:RETURN 

1410 FOR X=0 TO 256 STEP 2:LINE 
(X,100)-(X,137),PSET:NEXT X:LINE 

(0,0)-(256,98),PSET,BF:SR$=";Cl 
U10H10F10E10G10U10H10F10E10G10U2 
0H5F5E5G5C0;" 

1411 FOR X=20 TO 236 STEP 20:X$= 
STR$(X):P$="BM"+X$+",98":DRAW"XP 
$;XSR$;":NEXT X 

1412 IF L=8 THEN LINE (226,95)—( 
234,99),PRESET,BF:LINE(229,50)-( 
231,95),PRESET,BF:LINE(226,46)-( 
234,50),PRESET,BF 

1413 IF L=8 THEN DRAW"BM225,48;C 
1R10E10L20H10G10E5F15C0;" 

1415 RETURN 

1420 FOR X=1 TO 256 STEP 2 

1421 LINE (X,100)-(X,137),PSET:N 
EXT X:FOR X=100 TO 137 STEP 5:LI 
NE(0,X)-(256,X) ,PS ET:NEXTX:LINE 
(0,0)-(96,99),PSET,BF:RETURN 
1430 FOR X=0 TO 256 STEP 2:LINE( 
X,100)-(X,137),PSET:NEXTX:FOR X= 
100 TO 137 STEP 5:LINE (0,X)-(25 
6,X),PSET:NEXT X:S$=»BLACKSTONE" 
:IF MW=0 THEN RETURN ELSE DRAW'B 
M100,20;"IGOSUB 1100:RETURN 
1440 FOR X=0 TO 256 STEP 2:LINE( 


X, 100)-(X,137) ,PSET:NEXTX:FOR X= 
100 TO 137 STEP 6:LINE(0,X)-(256 
,X),PSET:NEXT X:LINE (20,70)—(40 
,9 9) ,PS ET,BF:LINE(216,70)-(236,9 
9),PSET,BF:LINE(10,60)-(246,70), 
PSET,B:RETURN 

1450 LINE (0,0)-(256,100),PSET,B 
F:TT$=";C1D20R5U20L10U10R15D10L5 
C0;":DRAW "BM20,40;XTT$;BM236,40 
;XTT$;":FOR X=100 TO 136 STEP 6: 
LINE (0,X)-(256,X),PSET:NEXT X 

1451 RETURN 

1460 FOR X=1 TO 256 STEP 3:LINE 
(X,100)-(X,137),PSET:NEXT X:FOR 
X=1 TO 256 STEP 2:LINE (X,0)-(X, 
99),PSET:NEXT X:FOR X=0 TO 256 S 
TEP 25:LINE(X,0)-(X+l,99),PSET,B 
:NEXT X:FOR X=100 TO 136 STEP 6: 
LINE(0,X)-(256,X),PSET:NEXTX 

1461 CIRCLE(128,20),10,0:CIRCLE( 
128,15),5,0:CIRCLE(128,25),5,0:R 
ETURN 

1470 IF L=15 THEN FOR X=0 T0256 
STEP 2 ELSE FOR X=1 TO 256 STEP 
2 

1471 LINE (X,0)-(X,137),PSET:NEX 
T X:FOR X=1 TO 25:PRESET(RND(256 
),RND(137)):NEXT X:RETURN 

1480 FOR X=1 TO 256 STEP 2:LINE( 
X,100)-(X,137),PSET:NEXT X:FOR X 
=100 TO 137 STEP 6:LINE(0,X)-(25 
6,X),PSET:NEXT X:FOR X=0 TO 256 
STEP 8:LINE(X,100)-(X,137),PSET: 
NEXT X:LINE(40,50)-(60,60),PSET, 
B: LINE(19 6,50)-(216,60) ,PSET,B 

1481 RETURN 

1490 FOR X=0 TO 256 STEP 2:LINE 
(X,100)-(X,137),PSET:NEXT X:FOR 
X=100 TO 137 STEP 6:LINE (0,X)-( 
256,X),PSET:NEXTX:CIRCLE(128,20) 
,10,0:CIRCLE(128,15),5,0:CIRCLE( 
128,25),5,0:LINE (20,0)-(40,99), 
PSET,BF:LINE (216,0)-(236,99),PS 
ET,BF:RETURN 

1510 CIRCLE(128,87),128,0,1,.5,1 

1511 PAINT(3,3),0,0:PAINT(252,3) 

,fi.fi 

1512 LINE(10,100)-(246,137),PSET 
,BF:LINE(50,80)-(206,99),PSET,B: 
RETURN 

1520 FOR X=1 TO 256 STEP 2:LINE( 
X,100)-(X,137),PSET:NEXT X:FOR X 
=0 TO 256 STEP 2:LINE(X,0)-(X,99 
),PSET:NEXT X:FOR X=0 TO 99 STEP 
10:LINE(0,X)-(256,X),PSET:NEXT 
X:FOR X=1 TO 30:PRESET(RND(256), 
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RND(37)+100):NEXT X 
1521 LINE(0,0)-(5,99),PSET,BF:LI 
NE(251,0)-(256,99),PSET,BF:RETUR 
N 

1620 REM INPUT COMMAND 
1630 DRAW"BM0,180;" 

1640 C$="COMMAND ? " 

1650 C=0;FOR X=1 TO LEN(C$) 

1660 A$=MID$(C$,X,1):A=ASC(A$)-6 
4 

1670 C=C+1:IF C=3 3 THEN C=lsDRAW 
"BM-249,+10;" 

1680 IF A=32 OR A=-32 THEN DRAW" 
BM+7,0;":NEXTX:G0T01710 
1690 IF A=-l THEN A=28:GOTO1690 
ELSE DRAW"XN$(A);BM+7,0;" 

1700 NEXT X 
1710 C$="" 

1720 DRAW"R7U1L7" 

1725 A$=INKEY$;IF A$="" THEN1725 

1726 DRAW";C1R7D1L7C0;" 

1730 IF A$=CHR$(13) THEN 1800 
1740 IF A$=CHR$(32) THEN DRAW'BM 
+7,0;":C$=C$+A$:GOTO 1720 
1750 IF A$=CHR$(8) THEN C$=LEFT$ 
(C$,LEN(C$)-1);GOTO1720 
1760 A=ASC(A$)-64;IF A<0 OR A>28 
THEN 1720 
1770 C$=C$+A$ 

1780 DRAW"XN$(A);BM+7,0;":C=C+1: 

IF 031 THEN 570 

1790 GOTO 1720 

1800 RETURN 

1810 REM INVENTORY 

1820 FOR X=1 TO 10:IF I(X)=0 THE 

N NEXTX:PCLS:DRAW"BM0,0;":S$="YO 

U ARE CARRYING NOTHING":GOSUB110 

0:RETURN 

1830 PCLS:DRAW"BM0,0 ; " 

1840 S$="YOU ARE CARRYING THE FO 
LLOWING " 

1850 GOSUB 1100 
1860 DRAW"BM0,20;" 

1870 FOR Y=1 TO 10 
1880 IF I(Y)=0 THEN NEXTY:RETURN 
1890 IF I(Y)=1 THEN S$="EXCALIBI 
R":GOSUB1100:DRAW"BM-247,+10;" 
1900 IF I(Y)=2 THEN S$="EQUINOX" 
:GOSUB 1100:DRAW"BM-247,+10;" 
1910 IF I(Y)=3 THEN S$="RUBBER G 
LOVES":GOSUB 1100:DRAW"BM-2 4 7,+1 
0;" 

1920 IF I(Y)=4 THEN S$="TIME BOM 
B":GOSUB 1100:DRAW"BM-247,+10;" 
1930 IF I(Y)=5 THEN S$="INCH WOR 
M":GOSUB 1100:DRAW"BM-247,+10;" 


1940 IF I(Y)=6 THEN S$="MAGIC PO 
TION":GOSUB 1100:DRAW"BM-24 7,+10 

* ii 
/ 

1950 IF I(Y)=7 THEN S$="BOBBY PI 
N" :GOSUB 1100:DRAW'BM-247,+10 ; " 

1960 IF I(Y)=8 THEN S$="A SILVER 
KEY":GOSUB1100:DRAW"BM-247,+10; 

ii 

1961 IF I(Y)=9 THEN S$="A BLUE S 
TONE":G0SUB1100:DRAW"BM-2 4 7, +10; 

ii 

1962 IF I(Y)=10 THEN S$="A RED S 
TONE":GOSUB1100:DRAW"BM-247,+10; 
ii 

1970 NEXT Y:RETURN 
1980 REM DIRECTIONAL 
1985 DRAW"BM0,0;" 

1990 IF C$="N" THEN 2060 
2000 IF C$="S" THEN 2170 
2010 IF C$="E" THEN 2300 
2020 IF C$="W" THEN 2410 
2030 IF C$="D" THEN 2540 
2040 IF C$="U" THEN 2570 
2050 RETURN 

2060 IF L=2 THEN L=l:RETURN 
2070 IF L=9 THEN L=8:RETURN 
2080 IF L=5 THEN L=4:RETURN 
2100 IF L=18 THEN L=17:RETURN 
2110 IF L=17 THEN L=16:RETURN 
2150 IF L=14 AND D1=0 THEN LINE( 
0,170)-(256,180),PRESET,BF:DRAW" 
BM0,180;":S$="THE DOOR IS LOCKED 

.":GOSUB1100:FORT=1TO400:NE 

XTT:LINE(0,170)-(256,180),PRESET 
:RETURN ELSEIFD1=1 AND L=14 THEN 
L=15:RETURN 

2160 LINE(0,170)-(256,180),PRESE 
T,BF:DRAW"BM0,180;":S$ = "YOU CANN 
OT GO THAT WAY.":GOSUB 1100:FORT 
=1TO200:NEXT T:LINE(0,170)-(256, 
180),PRESET:RETURN 
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2170 IF L=8 AND CR=0 THEN PCLS:D 
RAW"BM0, 0 ; " :S$="THE CROW ATTACKS 
YOU AS YOU BEGIN TO MOVE SO 

UTH. SORRY BUT THY GAME IS 

OVER." :GOSUB1100:GOTO3590 E 

LSE IF L=8 AND CR=1 THEN L=9: RET 
URN 

2180 IF L=1 THEN L=2:RETURN 
2190 IF L=4 THEN L=5:RETURN 
2200 IF L=16 AND BS=0 THEN PCLS: 
S$="AS YOU BEGIN TO LEAVE THE RO 
OM YOU BECOME VERY DIZZY. THE R 
OOM BEGINS TO SPIN. YOU BLACK OU 

T. SORRY YOURE DEAD_"iGOSUBl 

100:GOTO3590 ELSE IF L=16 AND BS 
=1 THEN L=17:RETURN 
2210 IF L=15 THEN L=14:RETURN 
2220 IF L=17 THEN L=18:RETURN 
2230 IF L=18 THEN L=ll:RETURN 
2240 IF L=13 THEN L=ll:RETURN 
2290 GOTO 2160 
2300 IF L=3 THEN L=2:RETURN 
2310 IF L=4 THEN L=7:RETURN 
2320 IF L=10 THEN L=9:RETURN 
2330 IF L=15 AND D2=0 THEN LINE( 
0,170)-(256,180),PRESET,BF:S$="T 
HE DOOR IS LOCKED....":DRAW"BM0, 
180;":GOSUB1100:FORT=1TO500:NEXT 
T:LINE(0,170)-(256,180),PRESET,B 
F:RETURN ELSE IF L=15 AND D2=l T 
HEN L=20:RETURN 
2340 IF L=14 THEN L=3:RETURN 
2350 IF L=12 THEN L=13:RETURN 
2400 GOTO 2160 
2410 IF L=2 THEN L=3:RETURN 
2415 IF L=19 AND FI=0 THEN PCLS: 
S$="THE GIANT INCH WORM ATTACKS 
WITH ITS CLAWS. IT SEEMS MAD 
AT YOU. YOUR BODY IS TOO WEAK T 
0 CONTINUE. GAME OVER":GOS 

UB1100:GOTO3590 ELSE IF L=19 AND 
FI=1 THEN L=12:RETURN 
2420 IF L=3 AND FF=0 THEN PCLS:S 

$=" . . . ZAP.ZAP.ZAP .. . 

YOU HAVE JUST BEEN ELECTRICUT 
ED BY THE FORCE FIELD. GAME OVE 
R":GOSUB1100:GOTO3590 ELSE IF L= 
3 AND FF=1 THEN L=14:RETURN 
2430 IF L=7 THEN L=4:RETURN 
2440 IF L=9 THEN L=10:RETURN 
2450 IF L=20 THEN L=15:RETURN 
2530 GOTO 2160 

2540 IF L=2 THEN L=4:RETURN 

2541 IF L=7 THEN L=8:RETURN 

2542 IF L=12 THEN L=ll:RETURN 

2543 IF L=19 AND FI=0 THEN PCLS: 


S$="THE GIANT INCH WORM GRABS YO 
U WITH ITS JAWS AND HURLS YOU 
UP AGAINST THE WALL. YOU CANNOT 
CONTINUE... GAME OVER":GOSUB 
1100:GOTO3590 ELSE IF L=19 AND F 
1=1 THEN L=18:RETURN 
2550 IF L=14 THEN L=16:RETURN 
2560 GOTO 2160 

2570 IF L=18 THEN L=19:RETURN 

2571 IF L=16 AND BS=0 THEN PCLS: 
S$="THAT SMOKE IS MAKING YOU SIC 
K. YOU TRY TO CONTINUE BUT YOU 

BLACK OUT. GAME OVER":G 

OSUB1100:GOTO 3590 ELSE IF L=16 
AND BS=1 THEN L=14:RETURN 

2572 IF L=4 THEN L=2:RETURN 

2573 IF L=8 AND CR=0 THEN PCLS:S 
$="THE CROW NOTICES YOUR MOVEMEN 
T AND ATTACKS YOU. ALL YOU HEAR 

IS THE BIRD WINGS AS YOUR MIN 
D DRIFT AWAY INTO SLEEP. 

GAME OVER":GOSUB1100:GOTO3590 
ELSE IF L=8 AND CR=1 THEN L=7:R 
ETURN 

2580 GOTO 2160 

2590 DATA BU1U4E1R2F1NG4D4G1L2H1 
BD1,U5E1R2F1D2NL4D3BL4,U6R3F1D1G 
1NL3F1D1G1L3,BU1U4E1R2F1BD4G1L2H 
1BD1,U6R2F2D2G2L2,U6R4BD3BL1L3D3 
NR4 

2600 DATA U6R4BD3BL1L3D3,BU1U4E1 
R3BD4NL1D2L3H1BD1,U6BR4D3NL4D3BL 
4,BU6BR1R2L1D6NR1L1BL1,BU6BR4D5G 
1L2H1BD1,U6D3R1NE3NF3BD3BL1 
2610 DATA NU6NR4,U6F2ND1E2D6BL4, 
U6D1F4NU5D1BL4,BU1U4E1R2F1D4G1L2 
H1BD1,U6R3F1D1G1L3D3,BU1U4E1R2F1 
D3G1NH1NF1G1L1H1BD1 
2620 DATA U6R3F1D1G1L3R1F3BL4,BU 
5BR4H1L2G1D1F1R2F1D1G1L2H1BD1,BU 
6R4L2D6BL2,BU1U5BR4D5G1L2H1BD1,B 
U6BR4D2G1D1G1ND1H1U1H1NU2BD4,NU6 
E2NU1F2NU6BL4 

2630 DATA BU6D1F2E2NU1BD4ND1H2G2 
D1,BU6BR4D1G2ND3H2NU1BD5,BU6R4D1 
G4D1NR4 

2640 DATA NR1NE1U1D1,BU3R5L5BD3 
2650 DATA BU1U4E1R2F1NG4D4G1L2H1 
BD1,BU6BR2NG1D6R1L2BL1,BU5E1R2F1 
D1G1L1G2D1NR4,BU5E1R2F1D1G1NL1F1 
D1G1L2H1BD1,BU2NR4U1E3D6BL3 
2660 DATA BU6NR4D3E1R2F1D2G1L2H1 
BD1,BU6BR2NR2G2D3U2R3F1D1G1L2H1B 
D1,BU6R4D1G3D2BL1,BU1U1E1NR1H1U1 
E1R2F1D1G1NL1F1D1G1L2H1BD1,BU4NF 
1U1E1R2F1D2NL3D1G2L2 
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2670 DATA BU6D1F2E2NU1BD4ND1H2G2 
D1 

2680 DATA 20,8,5,0,10,15,21,18,1 
4,5,25,0,6,15,18,0,20,8,5,0,19,8 
,9,5,12,4 

2710 FOR X=1 TO 8:IF I(X)=8 THEN 
I(X)=0:GOTO610 ELSE NEXT XlGOTO 
610 

2720 REM WHAT OBJECT? 

2730 IF RIGHT$(C$,7)="EQUINOX" 0 
R RIGHT$(C$,4)="RING" THEN 00=2: 
RETURN 

2740 IF RIGHT$(C$,5)="SW0RD" OR 
RIGHT$(C$,9)="EXCALABIR" THEN 00 
=1:RETURN 

2750 IF RIGHT$(C$,6)="GL0VES" TH 
EN 00=3:RETURN 

2760 IF RIGHT$(C$,4)="B0MB" THEN 
00=4:RETURN 

2770 IF RIGHT$(C$,4)="W0RM" OR R 
IGHT$(C$,9)="INCH WORM" THEN00=5 
:RETURN 

2780 IF RIGHT$(C$,6)="POTION" TH 
EN00=6:RETURN 

2790 IF RIGHT$(C$,9)="BOBBY PIN" 
OR RIGHT$(C$,3)="PIN" THEN00=7: 
RETURN 

2800 IF RIGHT$(C$,3)="KEY" THEN 
00=8:RETURN 

2801 IF RIGHT$(C$,10)="BLUE STON 
E" THEN00=9:RETURN 

2802 IF RIGHT$(C$,9)="RED STONE" 
THEN 00=10:RETURN 

2810 00=0:RETURN 
2820 REM CAN'T DO THAT 
2830 LINE(0,170)-(256,180),PRESE 
T,BF:DRAW"BM0,180;":S$="I TRIED 
BUT I CANNOT DO THAT.":GOSUB 110 
0:FORT=1T0500:NEXTT:LINE(0,170)- 
(256,180),PRESET,BF:GOTO610 
2840 REM NOT HERE 
2850 LINE(0,170)-(256,180),PRESE 
T,BF:DRAW"BM0,180;":S$="IT IS NO 
T HERE IN THIS ROOM.":GOSUB 1100 
:F0RT=1 TO 500:NEXTT:LINE(0,170) 
-(256,180),PRESET,BF:GOTO610 
2860 REM TAKE 
2870 SOUND 100,1 
2880 O (L, X) =0 

2890 FOR X=1 TO 8:IF I(X)=0 THEN 
2910 ELSE NEXTX 
2900 X=8 
2910 I(X)=00 

2920 LINE(0,170)-(256,180),PRESE 
T,BF:G0T0610 
2930 REM ROLL 


2940 IF RIGHT$(C$,4)="RING" THEN 
IF L=1 THEN 2960 

2950 LINE(0,170)-(256,180),PRESE 
T,BF:DRAW"BM0,180;":S$="SORRY YO 
U CANNOT DO THAT.":GOSUB 1100:FO 
RT=1TO500:NEXTT:LINE(0,170)-(256 
,180),PRESET, BF:GOTO610 
2980 PCLS 
2990 DRAW"BM0,0;" 

3000 S$="S N E W U D DIRECTIONS 
INVENTORY SWIM THROW 

GIVE USE SET 

PICK LOOK ROOM 

GET DROP WEAR 

CATCH":GOSUB1100 
3010 RETURN 

3020 LINE(0,170)-(256,180),PRESE 
T,BF:GOTO610 

3021 GOSUB3030:DRAW"BM0,180 ?":GO 
SUB1100:FORT=1TO500:NEXTT:GOTO30 
20 

3030 LINE(0,170)-(256,180),PRESE 
T,BF:RETURN 

3040 PCLS:DRAW"BM0,0;" 

3170 S$="THE DOOR IS EITHER ALRE 
ADY OPEN OR THERE IS NO DOOR HER 
E.":PCLS:DRAW"BM0,0;":GOSUB1100: 
GOTO610 

3190 IF RIGHT$(C$,4)<>"LOCK" THE 
N DRAW"BM0,180;":S$="YOU CANNOT 
PICK THAT OBJECT.":GOTO 3021 

3191 FOR X=1TO10:IFI(X)<>7THENNE 
XTX:S$="YOU DONT HAVE THE PIN.": 
DRAW"BM0,180;":G0T03 021 

3192 IF L<>15 AND L<>14 THEN S$= 
"THERE IS NO DOOR HERE.":GOTO302 
1 

3193 IF Dl=l THEN S$="THE DOOR I 
S ALREADY OPEN.":GOTO3021 

3194 IF L=14 THEN Dl=l:PCLS:DRAW 
"BM0,10;":S$="AFTER A SHORT TIME 

OF TRYING YOU HEAR THE LOCK 
CLICK. I BELIEVE ITS OPEN N 

OW. ":GOSUB 1100:GOTO610 ELSE S$ = 
"IT DOESNT SEEM TO WORK.":GOTO 3 
021 

3200 IF L<>8 AND L<>19 THENS$="T 
HE VERB GIVE IS NOT USEFUL HERE" 
:GOTO3021 

3201 IF RIGHT$(C$,4)="WORM"THENF 
ORX=1TO10:IFI(X)<>5THENNEXTX:S$= 
"YOU DONT HAVE IT.":GOTO3021 

3202 IF RIGHT$(C$,6)="POTION"THE 
N3206 

3203 IF L=8 THEN S$="THE CROW GL 
ADLY ACCEPTS THE WORM" :I(X)=0:GO 
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T03J321 

32J34 IF L=19 THEN S$="THE FATHER 
INCH WORM IS SO HAPPY YOU 

FOUND HIS SON THAT HE LETS YOU P 
ASS HIM. " : FI=1:1 (X) =J3 : PCLS: DRAW" 
BMJ3, 1J3 ; " : GOSUB11J3J3 : G0T061J3 
32J35 S$= "PROGRAM ERROR" : G0T03j321 
32J36 F0RX=1T01J3 : IFI (X) 06 THENNEX 
TX:S$="YOU DONT SEEM TO HAVE THE 
POTION" :G0T03j3 21 

32J37 IF L=19 THEN S$="THE FATHER 
INCH WORM REFUSES. ." :G0T03J321 
32J38 IF L=8 THEN S$ = "THE CROW AC 
CEPTS THE POTION. THE BIRD FA 
LLS TO THE GROUND. I BELIEVE IT 
IS DEAD. " : I (X) =J3 : CR=1: PCLS: DRAW" 
BMJ3, 1J3 ; " : GOSUB11J3J3 : G0T061J3 
32)39 GOTO 32J35 

321)3 IF RIGHT$ (C$ , 9 ) = M RED STONE" 
THENF0RX=1T01J3 : IFI (X) <>1J3THENNEX 
TX:S$="YOU ARE NOT IN POSSESSION 
OF IT. " : G0T03J321 

3211 IF RIGHT$(C$,1J3)="BLUE STON 
E"THENF0RX=1T01J3 : IFI (X) <>9THENNE 
XTX:S$="YOU DONT HAVE THE BLUE S 
TONE. " : GOTO 3)3 21 

3212 IF L<>6 AND L<>16 THENS$="T 
HE STONE SMASHES INTO A PURPLE S 
MOKE. WHAT A WASTE OF MAGICAL S 
TONE. " : I (X) =J3 : DRAW"BMJ3,1)3 ; " : GOSU 
B11)3)3: G0T061J3 

3213 IF RIGHT$(C$,1J3)="BLUE STON 
E" AND L=16 THEN S$="THE STONE E 
XPLODES INTO A BLUE SMOKE WHEN 
IT HITS THE GROUND. I DONT KNOW 

IF ANYTHING HAPPENED" : I (X) =J3 : PC 
LS: DRAW"BMJ3,1)3 ; " : GOSUB11J3J3: BS=1: 
G0T061J3 

3214 IF RIGHT$(C$,9)="RED STONE" 
AND L=6 THEN S$="THE STONE EXPL 

ODES INTO A DARK RED SMOKE. WHE 
N IT CLEARS YOU FIND YOURSELF 

HERE." : L=15:1 (X) =J3: DRAW"BMJ3, 

1)3 ; " : PCLS: GOSUBllj3j3: G0T061J3 

3215 S$="THE STONE EXPLODES INTO 
A DEEP PURPLE SMOKE. .SNIFF. 

.ITS POISINOUS_ 

YOURE DEAD_":PCLS:DR 

AW"BMJ3,1)3 ; " : GOSUB11J3J3 : G0T0359J3 
32 2)3 WG=l:S$="O.K. I HAVE PUT TH 
EM ON. " : GOTO3J321 

3221 S$="AS YOU GAZE INTO THE RE 
FLECTION OF THE WATER YOU SEE A 
DARK SHADOW MOVE UNDER THE W 

ATER. IT LOOKS LIKE A BIG EEL 
. " : PCLS: DRAW"BMJ3,1)3 ; " : GOSUB11J3J3: 


G0T061J3 

323) 3 IF L<>lj3 THEN S$="I DONT SE 
E AN EEL HERE. " : GOTO3)321 

3231 IF WG=J3 THEN PCLS:S$="AS YO 

U GRAB THE EEL IN YOUR HANDS 

YOU FEEL A LARGE ELECTRIC SHOCK 

GAME OVER" : DRAW"BMJ3,5)3 ; " : GO 
SUBllj3j3: G0T0359 j3 

3232 PCLS:S$="YOU GRAB THE EEL W 

ITH YOUR GLOVES AND THROW I 

T TO THE GROUND.":EL=1:DRAW 

"BMJ3,1)3 ; " : GOSUB11J3J3 : G0T061J3 

324) 3 IF RIGHT$ (C$,3) ="KEY M THENF 
0RX=1T01J3 : IFI (X) 08 THENNEXTX: S$= 
"YOU DONT HAVE THE KEY . " : G0T03J32 
1 

3241 IF RIGHT$(C$,5)="SWORD" THE 
N 3246 

3242 IF L<>15 THEN S$="THE KEY D 
OESNT SEEM TO FIT. " : G0T03J321 

3243 PCLS:S$="THE KEY TURNS AND 

YOU HEAR A DEEP LOUD CLICK. T 
HE DOOR SWINGS OPEN REVEAL 

ING." : D2=l: DRAW"BMJ3,1)3 ; " : G 

OSUBllj3j3: G0T061J3 

3246 IF L<>2j3 THEN S$ = "USING THE 
SWORD HERE DOESNT WORK" : G0T03j32 

1 

3247 IF DM=J3 THEN S$="THE DOME I 
S MUCH TO HARD.": GOTO 3)321 
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3248 PCLS:S$="WITH A SWING OF TH 
E SWORD THE DOME SMASHES TO TH 
E FLOOR EXPOSING THE SHIEL 

D.":SH=1:DRAW" BMP,10?":GOSUBllpp 
: G0T061J3 

325p F0RX=lT01p : IFI (X) 04THENNEX 
TX:S$="YOU HAVE NO TIME BOMB.":G 
0T03P21 

3251 IF L02J3 THEN PCLS:S$="THE 

BOMB EXPLODES IN YOUR HAND 

S. I DONT THINK IT WAS MADE FOR 
THAT. 

GAME OVER ":DRAW"BMP,ip ?" 
:GOSUBllpp:GOTO359p 

3252 PCLS:S$="THE BOMB IS SET AN 
D YOU PLACE IT BESIDE THE DOME 
. IT EXPLODES CRACKING THE DOME. 
":DM=1:1(X)=p:DRAW"BMP,ip ?":GOSU 
Bllpp:G0T061p 

34pp IF L=ll OR L=5 OR L=6 THEN 
342p ELSE IF Loip THEN GOSUB 3p 
3p:DRAW'BMp,18p ?":S$= M YOU CANT S 
WIM HERE":GOSUBllpp:FORT=lTOippp 
:NEXTT:GOTO3 p2p 

341p IF EL=P THEN PCLS:DRAW"BMP, 
lp ?":S$="THE WATER IS COLD AND I 
CY FEELING. SOMETHINGS IN 

THE WATER. YOU FEEL IT TOUC 

H YOU AS YOUR BODY SINKS TO T 
HE BOTTOM. GAME OVE 

R":GOSUBllpp:GOTO359 P 
342p IF L=5 THEN L=ll:GOTO 3429 
3421 IF L=ll THEN L=5:GOTO 3429 


3422 IF L=ip THEN L=6:GOTO 3429 

3423 IF L=6 THEN L=ip 

3429 DRAW'BMp, lp ?" :S$="THE WATER 
FEELS WARM AND COMFORTAB 

LE. YOU SWIM TO ANOTHER S 

HORE.":PCLS:GOSUBllpp:GOTO 6 ip 
351p F0RX=1T08:IFO(L, X)=pTHENO(L 
,X)=00 ELSENEXTX:S$="YOU CAN NOT 
DROP IT HERE.":GOSUBllpp:FORT=l 
T05PP:NEXTT:G0T03P2P 
352p F0RX=1T08:IF I(X)=00 THENI ( 
X)=pELSENEXTX 

353p S$="OK. I HAVE DROPPED IT." 

:GOSUBllpp:F0RT=lT05pp:NEXTT:GOT 
03p2p 

354p GOSUB3p3p:DRAW'BMp,18p ?" 

355p GOSUB272p:IFOO=pTHENS$="I D 
ONT THINK IT IS HUNGRY.":GOSUB11 
PP:F0RT=lT05pp:NEXTT:G0T03P2P 
356p IF 0004 THENS$="YOU CANNOT 
FEED THAT.":GOSUBllpp:F0RT=1T05 
PP:NEXTT:G0T03P2P 
357p F0RX=1T08:IFI(X)<>4THENNEXT 
X:S$="YOU ARE NOT HOLDING IT.":G 
OSUBllpp:F0RT=lT05pp:NEXTT:G0T03 
p 2 p 

358p F0RX=1T08:IFI(X)<>5THENNEXT 
X:S$="YOU HAVE NOTHING TO FEED I 
T.":GOSUBllpp:F0RT=lT05pp:NEXTT: 
G0T03p2p 

359p IF INKEY$="" THEN 359P ELSE 
CLEAR:RUN 

36pp GOSUBllpp:G0T0359p ^ 


SORCERER 32K ECB 


\THE / v 

SWORD 

AND 

THE 

SORCERER 
PORT IV 

PROGRAMMED BY CHRIS MCKERNRN. 


10 CLEAR 100: DIM R$(20),0(20,8) , 

1 ( 8 ) 

20 DIM N$(28),A$(10) 

30 FORX=0 TO 28:READ N$(X):NEXT 


4 p M$="S" 

5 p FOR X=0 TO 1,0 :READ A$(X):NEXT 
6 p PM0DE4,1:COLOR0,1:PCLS:SCREEN 
1,1:P0KE 65314,255 
70 DRAW"BM70,50;C0;S12;XN$(19);B 
M+7,0;XN$(23);BM+7,0;XN$(15);BM+ 
7,0;XN$(18);BM+7,0;XN$(4);" 

80 V$="EX" : V2$=" ;R1L2U45D2R3 ; 11 
90 DRAW"BM100,26;C0;S8;XN$(20);B 
M+7,0;XN$(8);BM+7,0;XN$(5) 

100 F0RX=1T05:PLAY "L255AAABBBBC 
CCCCDDDDDDEEEEEEEFFFFFFFF":NEXTX 
110 DRAW"BM110,70;C0;S4;XN$(1);B 
M+8,0;XN$(14);BM+8,0;XN$(4) 

120 DRAWBM100,90;C0;S8;XN$(20) ; 
BM+7,0;XN$(8);BM+7,0;XN$(5) 

130 DRAW"BM40,114;S12;XN$(19);BM 
+7,0;XN$(15);BM+7,0;XN$(18);BM+7 
,0;XN$(3);BM+7,0;XN$(5);BM+7,0;X 
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N$ (18) ? BM+7 , 0 ?XN$ (5) ? BM+7 , 0 ?XN$ ( 
18) ?" 

140 DRAW"BM40,14 4 ? C0 ?XN$ (16) ? BM+ 
7,0? XN $ (1) ? BM+7 , 0 ? XN $(18) ?BM+7,0 
?XN$(20) ? BM+13,0? XN $(09) ?BM+7,0? 
XN$(22) ?" 

150 DRAW" ? S4 ? " 

160 POKE 65495,1 

170 DRAW"BM0,160?»:S$=" PROGRA 
MMED BY CHRIS MCKERNAN.":SZ=1:GO 
SUB290 

180 POKE 65494,1 

190 B$="ODU":B2$="?R4U6L3F34G5D2 
/ " 

200 GOTO 560 

210 IF INKEY$="" THEN 210 
220 L=0 

230 FOR X=1 TO LEN(S$) 

240 A$=MID$(S$,X,1):A=ASC(A$)-64 
250 IF A=-18 THEN A=27 
260 L=L+1:IF L=33 THEN L=1:DRAW" 
BM-249,+10?" 

270 IF A=32 OR A=-32 THEN DRAW" 
BM+7,0 ?":NEXT X:GOTO 310 
280 DRAW"XN$(A)?BM+7,0?":NEXT X 
290 C=0:FOR X=1 TO LEN(S$) 

300 A$=MID$(S$,X,1):A=ASC(A$)-64 
310 IF SZ=1 THEN SOUND 100,1 
320 C=C+1:IF C=33 THEN C=1:DRAW" 
BM-249,+10?" 

330 IF A=32 OR A=-32 THEN DRAW"B 
M+7,0 ?":NEXTX:RETURN 
340 IF A=-18 THEN A=27:GOTO 340 
ELSEDRAW"XN$(A)?BM+7,0?" 

350 NEXTX:SZ=0:RETURN 
360 GOTO 360 
370 REM INPUT COMMAND 
380 DRAW"BM0,180?" 

390 C$="COMMAND ? « 

400 C=0:FOR X=1 TO LEN(C$) 

410 A$=MID$(C$,X,1):A=ASC(A$)-64 
420 C=C+1:IF C=33 THEN C=1:DRAW" 
BM-249,+10?" 

430 IF A=32 OR A=-32 THEN DRAW"B 
M+7,0 ?":NEXTX:G0T04 60 
440 IF A=-l THEN A=28:GOTO440 EL 
SE DRAW"XN$(A) ? BM+7,0 ?" 

450 NEXT X 
460 C$="" 

470 A$=INKEY$:IF A$="" THEN470 

480 IF A$=CHR$(13) THEN 550 

490 IF A$=CHR$(32) THEN DRAW"BM+ 

7,0?":C$=C$+A$:GOTO 470 

500 IF A$=CHR$(8) THEN C$=LEFT$( 

C$,LEN(C$)-1):GOTO470 

510 A=ASC(A$)-64:IF A<0 OR A>28 


THEN 470 
520 C$=C$+A$ 

530 DRAW"XN$(A) ?BM+7,0?":C=C+1:I 
F 031 THEN 570 
540 GOTO 470 
550 RETURN 

560 DRAW"BM0,0?F20E15F10E15F10E5 
F20 ? " 

570 DRAW"BM255,0 ?G20H15G10H15G10 
H5G20 ?" 

580 LINE(0,0)-(256,0),PSET:LINE( 
0,0)-(0,192),PSET:LINE(256,0)-(2 
56,192),PSET:LINE(0,192)-(256,19 
2),PSET 
590 GOTO 700 

600 DATA BU1U4E1R2F1NG4D4G1L2H1B 
D1,U5E1R2F1D2NL4D3BL4,U6R3F1D1G1 
NL3F1D1G1L3,BU1U4E1R2F1BD4G1L2H1 
BD1,U6R2F2D2G2L2,U6R4BD3BL1L3D3N 
R4 

610 DATA U6R4BD3BL1L3D3,BU1U4E1R 
3BD4NL1D2L3H1BD1,U6BR4D3NL4D3BL4 
,BU6BR1R2L1D6NR1L1BL1,BU6BR4D5G1 
L2H1BD1,U6D3R1NE3NF3BD3BL1 
620 DATA NU6NR4,U6F2ND1E2D6BL4,U 
6D1F4NU5D1BL4,BU1U4E1R2F1D4G1L2H 
1BD1 ,U6R3F1D1G1L3D3,BU1U4E1R2F1D 
3G1NH1NF1G1L1H1BD1 
630 DATA U6R3F1D1G1L3R1F3BL4,BU5 
BR4H1L2G1D1F1R2F1D1G1L2H1BD1,BU6 
R4L2D6BL2,BU1U5BR4D5G1L2H1BD1,BU 
6BR4D2G1D1G1ND1H1U1H1NU2BD4,NU6E 
2NU1F2NU6BL4 

640 DATA BU6D1F2E2NU1BD4ND1H2G2D 
1,BU6BR4D1G2ND3H2NU1BD5,BU6R4D1G 
4D1NR4 

650 DATA NR1NE1U1D1,BU3R5L5BD3 
660 DATA BU1U4E1R2F1NG4D4G1L2H1B 
D1,BU6BR2NG1D6R1L2BL1,BU5E1R2F1D 
1G1L1G2D1NR4,BU5E1R2F1D1G1NL1F1D 
1G1L2H1BD1,BU2NR4U1E3D6BL3 
670 DATA BU6NR4D3E1R2F1D2G1L2H1B 
D1,BU6BR2NR2G2D3U2R3F1D1G1L2H1BD 
1,BU6R4D1G3D2BL1,BU1U1E1NR1H1U1E 
1R2F1D1G1NL1F1D1G1L2H1BD1,BU4NF1 
U1E1R2F1D2NL3D1G2L2 
680 DATA BU6D1F2E2NU1BD4ND1H2G2D 
1 

690 DATA20,8,5,0,17,21,5,19,20,0 
, 6,15,18,0,5,24,3,1,12,1,2,9,18 
700 IF INKEY$="" THEN 700 ELSE C 
LS 

710 SS=2000:YS=1500:TT=1 

720 PRINT " THE SWORD AND THE SO 

RCERER IV " 

730 PRINT @32*15," THE SWORD AND 
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THE SORCERER IV"; 

740 FOR X=1024 TO 1024+31:A=PEEK 
(X) : POKE X, A-64 :NEXT X:FOR X=102 
4 + 352 TO 1024+383 : POKE X,32:NEXT 
X 

750 FOR X=1535 TO 1535-31 STEP-1 
:A=PEEK(X):POKE X,A-64:NEXT X:GO 
TO 850 

7 60 PRINT @32,""; 

770 PRINT " WEAPONS:" 

780 PRINT "YOU"," SORCERER", "- 

-11,11 -", "MAGICAL SWO 

RD"," PHOTON SPELL","THE SHIEL 
D"," FORCE FIELD","RING EQUINO 
X"," STUN SPELL" 

790 PRINT " STRENGTH: 

"; 

800 PRINT YS" EU(S)"," "SS" EU ( 
S) " 

810 PRINT " ROUND #";TT 

820 IF SY=1 THEN PRINT "stunned" 
, ELSE PRINT "NO STUN", 

830 IF SW=1 THEN PRINT " stunn 
ed" ELSE PRINT " NO STUN" 

840 RETURN 

850 REM START PROGRAM 

860 GOSUB 760: FOR T=1 TO 1000:NE 

XT T 

870 PCLS 

880 DRAW"BM0,0;F20E5F10E15F5E15F 
10E10F15E5F10E5F5E15F15E5F10E20F 
10E15F15E15F2E2 ;" 

890 PAINT (10,5) ,0,0 

900 PAINT (200,5) ,0,0: PAINT (30,5) 

/ P / 

910 PAINT (76,3) ,0,0: PAINT (252,1) 

/ P / P 

920 PAINT (244,1) ,0,0 

930 LINE (0,150) - (2 5 6,150) , PSET 

94J3 LINE (J3,15J3) - (J3,191) ,PSET:LIN 

E(j3,191) -(256,191) , PSET: LINE (256 

, 191) - (256,15J3) , PSET 

95J3 LINE(j3,15j3)-(j3,j3) , PSET: LINE ( 

256,15j3)-(256,j3) , PSET 

96J3 LINE(2j3,155)-(26,125) ,PSET:L 

INE(46,125)-(52,155),PSET 

97J3 WS$=V$+B$+M$ 

98j3 LINE (2 6,125) - (46,125) ,PSET:L 
INE (2J3,155) - (3J3,155) , PSET: LINE (4 
2,155) -(52,155) , PSET: LINE (3J3,155 
)-(36,135),PSET:LINE(42,155)-(36 
,135),PSET 

99J3 DRAW"BM2J3,155 ;L3D3R13U3 ;BM42 
,155;L3D3R13U3 ; " 

1J3J3J3 DRAW"BM2 6,125 ? U5 ; " : LINE (2 8, 
122 ) - (18,1J33) , PSET: LINE (18,103)- 


(38,103) , PSET: LINE (3 8,103 ) - (28,1 
22),PSET 

1010 DRAW"BM46,125;U20;" 

1020 LINE(46,105)-(57,120),PSET 
1030 LINE(46,95)-(62,115),PSET 
1040 LINE(26,95)-(46,95) ,PSET 
1050 DRAW"BM2 6,95;G8;" 

1060 CIRCLE(36,85),10 
1070 LINE(24,85)-(48,85),PSET 
1080 PAINT(36,84),0,0:LINE(57,12 
0)-(62,115),PSET 

1090 LINE(62,115)-(70,118),PSET, 
B 

1100 LINE(64,118)-(68,124),PSET, 
B 

1110 LINE(64,115)-(61,95),PSET:L 

INE(68,115)-(71,95),PSET 

1120 LINE(61,95)-(66,85),PSET:LI 

NE(71,95)-(66,85),PSET 

1130 LINE(57,120)-(64,124),PSET 

1140 LINE(160,155)-(166,125),PSE 

T 

1150 LINE(186,125)-(192,155),PSE 
T:LINE(166,125)-(186,125),PSET:L 
INE(160,155)-(170,155),PSET:LINE 
(182,155)-(192,155),PSET:LINE(17 
0,155)-(176,135),PSET:LINE(182,1 
55)-(176,135),PSET 
1160 DRAW"BM160,155;L3D3R13U3;BM 
182,155;L3D3R13U3;" 

1170 DRAW"BM166,125;U20G15U10E15 

. it 
/ 

1180 CIRCLE(176,85),10,,1,1,.5 
1190 DRAW"BM186,125;U20F15U10H15 
L20;« 

1200 LINE(166,85)-(176,60),PSET: 
LINE(186,85)-(17 6,60) ,PSET 
1210 LINE(166,85)-(186,85),PSET: 
PAINT(176,83),0,0 
1220 LINE(154,145)-(162,145),PSE 
T:LINE(190,145)-(200,145),PSET 
1230 LINE(173,145)-(179,145),PSE 
T 

1240 PAINT(175,144),0,0 
1250 LINE(154,145)-(166,105),PSE 
T: LINE(200,145)-(186,105),PSET 
1260 PAINT(157,143),0,0:PAINT(19 
8,143),0,0 

1270 DRAW"BM151,129;U20L1D20;":S 
CREEN1,1:FORT=1TO1000:NEXTT 
1280 REM COMMAND LEVEL PLAYER 
1290 YP=0:YH=0:YB=0 
1300 PRINT @13*32,""; 

1310 IF SY=1 THEN PRINT "COMMAND 
stunned":SY=0:FORT=1TO1000:NE 
XTT:GOTO1420 
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132J3 LINE INPUT "COMMAND ";C§ 
133J3 IF C$="USE SWORD" THEN YP=j3 
:YB=3: YH=3j3j3+(RND (2j3j3) ) 

134J3 IF C$="USE SHIELD"THEN YP=3 
: YB=J3 

135J3 IF C$="USE RING" THEN YP=j3 
: YB=3 : YH=2J3J3+ (RND (3J3J3) ) 

136J3 IF C$ = "SWING SHIELD"THENYP= 
2: YB=2: YH=25j3+(RND(2j3j3) ) 

137J3 IF C$="SWING SWORD" THENYP= 
1: YB=2 : YH=19j3+ (RND (3J3J3) ) 

138J3 IF C$ = "POINT RING" THEN YP= 
J3 : YH=2 : YB=2J3J3+ (RND (2J3J3) ) 

139J3 IF C$ = "LIFT SHIELD"THEN YP= 
3 : YB=1: YH=lj3j3+ (RND (1J3J3) ) 

14J3J3 IF C$ = "STAB SWORD" THEN YP= 
J3:YB=3:YH=3J3J3+(RND(2J3J3) ) 

141J3 IF YB=j3 AND YH=j3 AND YP=j3 T 
HEN PRINT @32*13 ,"THAT COMMAND W 
AS NOT AVAILABLE. " :F0RT=1T015J3J3: 
NEXTT: PRINT @32*13,"": GOTO 12 8 J3 
142J3 PRINT @32*12," SORCE 

RER'S TURN" 

143J3 PRINT "COMMAND 

144 j3 IF SW=1 THEN SB=j3 : SP=j3 : SH=j3 

: PRINT "stunned": FOR T=1 TO 1J3J3J3 

: NEXT T: SW=j3 : G0T0155J3 

145J3 Q=RND (8) : ON Q GOTO 147j3,148 



147J3 PRINT "USE STUN SPELL" :SP=J3 
: SB=3:SH=3j3j3+(RND(2J3J3) ): GOTO 155 

J3 

148J3 PRINT "USE FORCE FIELD" :SP= 
3 : SB=j3 : GOTO 155J3 

149J3 PRINT "USE PHOTON SPELL" :SP 
=J3 : SB=3 : SH=3J3J3+ (RND (3J3J3) ) :G0T015 
5j3 

15j3j3 PRINT "THROW PHOTON" : SP=1: S 
B=2 : SH=15J3+ (RND (2J3J3) ) :G0T0155J3 
151J3 PRINT "THROW STUNNER" : SP=1: 
SB=2:SH=1J3J3+(RND(1J3J3) ) :G0T0155j3 
152J3 PRINT "SPIN FORCE FIELD": SP 


=3 : SB=2 : SH=2J3J3+ (RND (Ij3j3) ) : GOTO 1 
55J3 

153J3 PRINT "BECOME INVISABLE" : SP 
=3 : SB=1: SH=RND (1J3J3) : G0T0155J3 
154J3 PRINT "SPIN PHOTONS" : SP=j3 : S 
B=3 : SH=2 5J3+ (RND (2 5J3) ) 

155J3 FOR T=1 T01j3j3j3: NEXTT 
156J3 IF SP=J3 AND YBOJ3 THEN PRIN 
T @32*12,"YOU MADE A HIT TO THE 
SORCERER! " :S0UND2J3J3,2 ELSE 158J3 
157J3 SS=SS-YH: PRINT "HE LOSES 
YH;" EU (S ) . " : IF YH>4j3j3 THEN SW=1 
:GOTO 161J3 

158J3 IF SP=j3 AND YB=j3 THEN PRINT 
@32*12,"THE SORCERER'S GUARD IS 
DOWN BUT YOU MAKE NO HIT.":G 
OTO 161J3 

159J3 IF SPOJ3 AND YBOJ3 THEN PRI 
NT @32*12,"YOU'VE MADE A HIT. BU 
T THE SORCERER HAS BLOCKED 

THE BLOW! " : SS=SS-YH+ (SP*1J3J3) : GOT 
0 161J3 

16J3J3 IF SPOJ3 AND YB=J3 THEN PRIN 
T @32*12,"NO HIT IS MADE TO THE 
SORCERER!" 

161J3 FOR T=1 TO 25j3j3:NEXT T 
162J3 GOSUB 76j3 

163J3 PRINT@32*12 , : PRINT@32*13 , 

ii ii 

164J3 IF YP=j3 AND SBOJ3 THEN PRIN 
T@32*12,"THE SORCERER MAKES A DI 
RECT HIT":YS=YS-SH:PRINT@32*13," 
YOU LOSE " ;SH; " EU (S ) ! " : IF SH>4j3 
J3 THEN SY=1 

165J3 IF YP=j3 AND SB=j3 THEN PRINT 
@32*12,"NO HIT IS MADE TO YOU!" 
166J3 IF YPOJ3 AND SBOJ3 THEN PRI 
NT @32*12,"THE SORCERER MAKES A 
HIT BUT YOU PROTECT YOURSELF. 
" : YS=YS-SH+ (YP*1J3J3) 

167J3 IF YPOJ3 AND SB=j3 THEN PRIN 
T @32*12,"NO HIT HAS BEEN MADE Y 
OU! " 

168J3 IF SS<=j3 AND YS<=J3 THEN SS= 
j3: YS=j3 : GOSUB7 6J3 : G0T0178J3 
169J3 IF SS<=J3 THEN SS=j3:GOSUB 76 
j3: G0T0183 j3 

17J3J3 IF YS<=j3 THEN YS=j3: GOSUB 7 6 
J3: G0T0175J3 

171J3 TT=TT+1: GOSUB 7 6j3 

172j3 FOR T=lT02j3j3j3 : NEXT T 

173J3 PRINT@32*12,"": PRINT@32*13, 

" " : GOTO 128 j3 

174J3 GOTO 174J3 

175J3 F0RT=lT01j3j3j3: NEXTT 

176J3 CLS: PRINT "THE SORCERER HAS 
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HIT YOU WITH A TREMENDOUS BLOW, 
YOU CRINGE IN PAIN AND DIE. 

TO REPLAY PRESS 

'R' ." 

1770 GOTO 1810 

1780 FORT=1TO1000:NEXTT 

1790 CLS:PRINT "YOU AND THE SORC 

ERER FALL TO THE GROUND. YOU 

DRIFT OFF INTO A LIGHT DIZZY SL 

EEP. NEVER TO AWAKEN. 


1800 PRINT " 

SORRY BUT YOU HAVE D 
IED FROM WOUNDS OF THE BATTLE 

. IF YOU WISH TO TRY AGAIN, H 
IT THE LETTER •R'." 

1810 A$=INKEY$:IF A$=""THEN1810 
1820 IF A$="R" THEN RUN ELSE END 
1830 FOR T=1TO1000:NEXT T 
1840 CLS:PRINT "YOU HAVE SUCCESS 
FULLY ELIMINATEDTHE SORCERER WIT 
H ";YS:PRINT"ENERGY UNITS REMAIN 
ING. YOU MUST NOW FIND YOUR 

WAY OUT OF HIS CASTLE TO FREED 

OM." 

1850 PRINT "EVERY MOVE THAT YOU 
MAKE IN HIS CASTLE WILL COST YOU 
five ENERGYUNITS. WHEN READY, P 
RESS ANY KEY." 

1860 IF INKEY$="" THEN 1860 
1870 TU=YS 

1880 R$(1)="YOU ARE IN THE SORCE 
RER'S ROOM. A BODY LIES ON THE 
FLOOR. YOU CAN GO: SOUTH,NORTH, 
EAST,WEST." 

1890 R$(2)="YOU ARE IN A MAZE OF 
FOUL SMELL-ING DUNGEONS. YOU CA 
N GO: SOUTH,NORTH,WEST,EAST." 
1900 R$(3)="YOU ARE IN A MAZE OF 
FOUL SMELL-ING DUNGEONS. YOU CA 
N GO: NORTH,WEST." 

1910 R$(4)="YOU ARE IN A MAZE OF 
FOUL SMELL-ING DUNGEONS. YOU CA 
N GO: SOUTH,NORTH,WEST." 

1920 R$(5)="YOU ARE IN A MAZE OF 
FOUL SMELL-ING DUNGEONS. YOU CA 
N GO: NORTH,SOUTH,EAST." 

1930 R$(6)=R$(2) 

1940 R$(7)=R$(4) 

1950 R$(8)="YOU ARE IN A MAZE OF 
FOUL SMELL-ING DUNGEONS. YOU CA 
N GO: SOUTH,EAST,WEST." 

1960 R$(9)="YOU ARE IN A DARK CA 
VE NETWORK. CAVES LEAD OUT IN TH 
ESE DIRECTIONS: SOUTH,NO 

RTH,EAST, WEST." 


1970 R$(10)=R$(9) 

1980 R$ (11) ="YOU ARE IN A DARK C 
AVE NETWORK. CAVES LEAD OUT IN T 
HESE DIRECTIONS: SOUTH,N 

ORTH,EAST." 

1990 R$(12)="YOU ARE STANDING BE 
FORE TWO HUGE GOLDEN DOORS. 

FREEDOM LIES JUST INCHES AWAY." 
2000 L=1 

2010 PRINT R$(L):LINE INPUT "COM 
MAND: ";C$ 

2020 IF C$="N" OR C$="E" OR C$=" 
W" OR C$="S" THEN TU=TU-5 
2030 IF TU<=-5 THEN 2520 
2040 IF C$="N" THEN 2110 
2050 IF C$="S" THEN 2220 
2060 IF C$="E" THEN 2330 
2070 IF C$="W" THEN 2420 
2080 IF C$="HELP" THEN PRINT "SO 
RRY, NO HELP IS AVAILABLE... AF 
TER ALL YOU'RE THE ONE THAT GO 
T YOURSELF INTO THIS MESS.":GOTO 
2010 

2090 IF C$="SCORE" THEN PRINT "Y 
OU HAVE ";TU;" EU(S) LEFT.":GOTO 
2010 

2100 PRINT "PLEASE USE DIRECTION 
S ONLY! SUCH AS N,S,E,W":GOT 

0 2010 

2110 IF L=1 THEN L=4:GOTO2010 
2120 IF L=2 THEN L=1:GOTO2010 
2130 IF L=3 THEN L=4:GOTO2010 
2140 IF L=4 THEN L=1:GOTO2010 
2150 IF L=5 THEN L=3:GOTO2010 
2160 IF L=6 THEN L=7:GOTO2010 
2170 IF L=7 THEN L=8:GOTO2010 
2180 IF L=9 THEN L=7:GOTO2010 
2190 IF L=10THENL=11:GOTO2010 
2200 IF L=11THENL=10:GOTO2010 
2210 PRINT "you can't go that wa 

y." : GOTO2010 

2220 IF L=1 THEN L=2:GOTO2010 
2230 IF L=2 THEN L=5:GOTO2010 
2240 IF L=4 THEN L=3:GOTO2010 
2250 IF L=5 THEN L=3:GOTO2010 
2260 IF L=6 THEN L=6:GOTO2010 
2270 IF L=7 THEN L=6:GOTO2010 
2280 IF L=8 THEN L=7:GOTO2010 
2290 IF L=9 THEN L=8:GOTO2010 
2300 IF L=10THEN L=4:GOTO2010 
2310 IF L=11THEN L=1:GOTO2010 
2320 PRINT "you can't go that wa 

y." : GOTO2010 

2330 IF L=1 THEN L=4:GOTO2010 
2340 IF L=2 THEN L=3:GOTO2010 
2350 IF L=5 THEN L=6:GOTO2010 
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2360 IF L=6 THEN L=6:GOTO2010 
2370 IF L=8 THEN L=7:GOTO2010 
2380 IF L=9 THEN L=12:GOTO2570 
2390 IF L=10THEN L=9:GOTO2010 
2400 IF L=11THENL=10:GOTO2010 
2410 PRINT "you can't go that wa 

y." : GOTO2010 

2420 IF L=1 THEN L=2:GOTO2010 
2430 IF L=2 THEN L=1:GOTO2010 
2440 IF L=3 THEN L=2:GOTO2010 
2450 IF L=4 THEN L=1:GOTO2010 
2460 IF L=6 THEN L=5:GOTO2010 
2470 IF L=7 THEN L=4:GOTO2010 
2480 IF L=8 THEN L=10:GOTO2010 
2490 IF L=9 THEN L=10:GOTO2010 
2500 IF L=10THEN L=11:GOTO2010 
2510 PRINT "you can't go that wa 

y." : GOTO2010 

2520 CLS:PRINT "YOU HAVE BECOME 
TOO WEAK TO CONTINUE.. 

PERHAPS ANOTHER 

DAY???" 

2530 PRINT:PRINT:PRINT:PRINT 
2540 PRINT "<PRESS ANY KEY TO RE 
START GAME>" 

2550 IF INKEY$="" THEN 2550 
2560 RUN 

2570 CLS:PRINT R$(L) 

2580 PRINT:PRINT "CONGRATULATION 
S!!! NOW ALL YOU HAVE TO DO IS 
SAY THE MAGIC word." 

2590 PRINT:PRINT 

2600 PRINT "HERE'S YOUR ONLY CLU 
E: " 

2610 PRINT "HTE NESCOD KOBO FO H 

TE DOL- RDTERAPEU." 

2620 PRINT 

2630 INPUT "SECRET WORD "?SW$ 
2640 IF SW$OWS$ THEN 2610 
2650 CLS 

2660 PRINT " CONGRATULATI 

ONS ! " 

2670 PRINT 

2680 PRINT "THE DOOR OPEN EXPOSI 
NG THE WARMTH OF THE SUN ON 

YOUR FACE AND THE COOL BREEZE 
OF FRESH AIR." 

2690 FOR T=1 TO 2500:NEXT T 
2700 PCLS 

2710 LINE(128,0)-(128,191), PSET 
2720 LINE(0,0)-(0,191), PSET 
2730 LINE(0,0)-(255,0),PSET 
2740 LINE(255,0)-(255,191),PSET 
2750 LINE(0,191)-(255,191),PSET 
2760 FOR X=10 TO 15 
2770 LINE(X,X)-(128-X,191-X),PSE 


T, B 

2780 LINE(255-X,X)-(128+X,191-X) 

,PSET,B 
2790 NEXT X 

2800 LINE(253,20)-(255,30),PSET, 
BF:LINE(253,191-20)-(255,191-30) 

,PSET,BF 

2810 LINE(0,20)-(2,30),PSET,BF:L 

INE(0,191-20)-(2,191-30),PSET,BF 

2820 SCREEN 1,1 

2830 FOR T=1 TO 1000:NEXT T 

2840 FOR X=1 TO 123 

2850 LINE(128-X,0)-(128-X,191),P 

SET 

2860 LINE(128+X,0)-(128+X,191),P 
SET 

2870 NEXT X 

2880 COLOR 1,0 

2890 CIRCLE (160,20),10 

2900 PAINT (160,20),1,1 

2910 DRAW"BM4,191?E40F40H10E15F2 

5H5E30F35H10E20F30H10E20F30 ?" 

2920 S$="CONGRATULATIONS":DRAW"B 

M50,50 ?":GOSUB 290 

2930 S$="YOU HAVE SUCCESSFULLY " 

:DRAW"BM50,60 ?":GOSUB290 

2940 S$="COMPLETED THE SWORD ":D 

RAW"BM50,70 ?":GOSUB290:S$ = "AND T 

HE SORCERER ":DRAW"BM50,80?":GOS 

UB290:S$="SERIES.":DRAW"BM50,90 ? 

":GOSUB290 

2950 S$="TAKE A BOW.": 

DRAW"BM50,120?":GOSUB 290 
2960 GOTO 2960 
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Actor's 


B 


me 


Program by Walt Thinnes 


orn in Great Britain a quarter of a century ago, 
and given the name Nigel Wrath-Horn, you 
have worked hard trying to make it a name that 
would be well-known and respected by every¬ 
one. Touring the provinces as a stage actor with 
your original one-man play has not exactly 
been duck soup. Night after night, traveling 
from one place to another has you on the verge 
of mental burnout. Somehow, you manage to 
keep going, in search of the elusive dream . . . 
your big break. 

One rainy Saturday night, in a rather small 
theater pub, you deliver what you feel is your 
finest performance. The small crowd’s standing 
ovation is, in itself, quite rewarding. However, 
a favorable response from one half-drunken 
audience is hardly the fame and recognition you 
are seeking. 

Pleased, but still somewhat depressed, you 
j oin your understudy backstage to help pack the 
stage props, when suddenly, the two of you are 
startled by a man who appears in the doorway. 
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He introduces himself as Bradley Scott Gordon, a talent scout for the Queen’s 
royal theater. Much to your amazement, he wants to book your act to be 
performed for her majesty and a host of dignitaries. 

The request renders you speechless, as you stare almost paralyzed by the 
invitation. Fortunately, your stand-in quickly speaks in your behalf and accepts. 
You just nod in agreement and finalize the deal with a friendly handshake. 

On the highly anticipated day of the special command performance, your 
dream of fame appears to be shattered as you wake from an unscheduled nap 
and discover that there is very little time before the play is scheduled to begin. 
Your understudy, who has recently been unable to conceal his jealousy, must 
have put a sleeping pill in the cup of tea he so graciously prepared for you earlier 
this evening, and insisted you needed. His conspicuous scheme to make you 
oversleep worked, and he undoubtedly plans to steal all the glory by performing 
in your place. But not if you can make it to the stage on time. 

You frantically look at your watch and are astonished to find that only 10 
minutes remain before the 8:00 p.m. curtain call. Realizing that you know 
absolutely nothing about the large London theater, finding the stage in such 
a short period of time could be impossible. And to make matters worse, your 
personal identification and backstage pass are missing from your wallet. 
Without them, no one will ever believe you are Nigel Wrath-Horn. 

An Actor's Nightmare begins in an alley outside the theater. Type TIME and 
a digital watch will display that it is 7:50 p.m. Remember, the curtain rises in 
10 minutes and every move you make or each command entered consumes five 
seconds, which equates to 120 moves per game. Even incorrect requests, and 
commands of VERB and TIME are counted as moves, so plan them carefully. 

To move around the theater, one-key directional commands of N (North), 

5 (South), E (East), W (West), U (Up) and D (Down) are used. All other situations 
are handled by entering a single verb command, such as LOOK, or a standard 
two-word command such as GET KEY. 

Due to memory limitations, the program will not run with the disk controller 
plugged in unless the graphics title and ending screens are deleted. To do so, 
delete Line 9 and lines 265 to the end of the listing (type DEL9 and DEL265-,). 

Break a leg! 

Walt Thinnes has worked in all phases of the theater. He is presently 

Technical Director of Bailey Concert Hall in Fort Lauderdale, Florida. 

Besides working with his CoCo, Walt enjoys dabbling in prestidigitation. 

Questions or comments may be addressed to him at 7151 Harding St., 

Hollywood, FL 33024. Please enclose an SASE when requesting a reply. 
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ACTOR 


32K ECB 


Caution — Packed Lines! 

Some of the lines in this program are “packed” and may be too long to enter in a normal fashion. If the CoCo stops accepting characters, 
press ENTER, go into the EDIT mode (type EDIT followed by the line number), press ‘X* (the EDIT command for extending the line), 
and then type in the few remaining characters. (We do not recommend using this technique in your own programs as serious problems 
could result.) 


1 '===AN ACTOR'S NIGHTMARE=== 

2 '===AN ADVENTURE PROGRAM=== 

3 '======BY WALT THINNES====== 

4 'COPYRIGHT W. THINNES 1985 

5 '1712 SW 14 ST 

6 'FT. LAUD., FL 33312 

7 ' (305) 463-0119 

8 'WRITTEN WITH THE ASSISTANCE 0 
F JARB SOFTWARE'S THE ADVENTURE 
GENERATOR AND THE FOLKS AT SOFTW 
ARE PLUS MORE, DAVIE FL 

9 CLS:PRINT@230,"ONE MOMENT, PLE 
ASE.":CLEAR300:GOSUB270:GOTO280 

10 CLEAR200:DIMRM(64),D(64,6),R$ 
(64),0$(32),LO(32) 

11 DATA"IN THE ALLEY OUTSIDE THE 
STAGE DOOR TO THE THEATRE.", 1,2 

12'DATA"IN A NORTH-SOUTH 
CORRIDOR. THE STAGE DOOR SLAMS 
SHUT BEHIND YOU.", 2,5,,,3,, 

13 DATA"IN A JANITOR'S CLOSET.", 
3 / t r 2 , , , 

14 / DATA"IN ONE OF THE STAR 
DRESSING ROOMS. IT WOULD HAVE 
BEEN YOURS.", 4,12,,5,,, 

15 DATA"IN A NORTH-SOUTH 
CORRIDOR WITH ANOTHER LEADING 
EAST.", 5,14,2,6,4,, 

16 DATA"IN AN EAST-WEST CORRIDOR 

11 6 ,,, 7 , 5 ,, 

17 DATA"IN'AN EAST-WEST CORRIDOR 
", 7 ,16,8,9, 6 , , 

18 DATA"IN A SECURITY OFFICE.", 

Q t 7 i i i i i 

19 DATA"AT THE END OF A CORRIDOR 
WITH STAIRS. ABOVE A DOOR TO THE 
SOUTH IS A RED LIT 'IT'.", 9,,10 
, ,7,11, 

20 DATA"IN THE ALLEY AGAIN! THE 
DOOR IS LOCKED BEHIND YOU AND 
THERE IS NO KEYHOLE! NEED HELP?" 
/ 10 / / / / / / 

21 DATA"ON A STAIRCASE LANDING." 
, ll/,/;/46,9 

22 DATA"IN THE STAR DRESSING 
ROOM SHOWER. PHEW! I THINK YOU 
NEED ONE BUT NO TIME NOW.", 12,, 
4, , / , 

23 DATA"IN HIS STAR DRESSING 


ROOM SHOWER. SEEMS HE HAD A LADY 
IN HERE RECENTLY. THE CAD!", 13, 

24 / DATA"IN A NORTH-SOUTH 
CORRIDOR.", 14,18,5,15,,, 

25 DATA"IN A MAKEUP LAB FOR THE 
PERFORMERS. WOULDN'T YOU LIKE TO 
BE ONE TONIGHT?", 15,19,,16,14 , , 

26 DATA"IN THE WOMAN'S CHORUS 
DRESSING ROOM. YOU SHOULD BE 
ASHAMED OF YOUSELF!", 16,20,7,,1 
5 f / 

27 DATA"IN A STAR DRESSING ROOM 
THAT YOUR UNDERSTUDY IS USING 
BUT HE'S ALREADY GONE.", 17,,13, 
18,,, 

28 DATA"IN A NORTH-SOUTH 
CORRIDOR.", 18,23,14,,17,, 

29 DATA"IN THE MEN'S CHORUS 
DRESSING ROOM.", 19,24,15,21,,, 

30 DATA"IN THE WOMEN'S CHORUS 
SHOWER ROOM. DON'T GET EXCITED. 
THERE IS NOBODY HERE.", 20,,16,, 

r / 



HALT THINNE5 


31 DATA"IN THE MEN'S CHORUS 
SHOWER ROOM.", 21,,,,19,, 

32 DATA"IN AN EAST-WEST CORRIDOR 
BUT THE ENTRANCE TO THE WEST IS 
LOCKED.", 22,,, 23,,, 

33 DATA"IN AN EAST-WEST CORRIDOR 
WITH ANOTHER LEADING SOUTH.", 23 
,63,18,24,22 , , 

34 DATA"IN AN EAST-WEST 
CORRIDOR.", 24,,19,25,23,, 

35 DATA"AT THE END OF A CORRIDOR 
AND THERE IS A STAIRCASE.", 25,, 
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,27,24,,26 

36 DATA"ON A STAIRCASE LANDING." 
r 26,,,,,25,54 

37 DATA"IN AN ACCESS LOBBY. THE 
THEATRE DOORS ARE CLOSED. THE 
USHERS WON'T LET YOU IN.", 27,,, 

28.25., 

38 DATA"IN THE MAIN LOBBY. 

THE CHANDELIERS ARE LOVELY.", 28 
,29,,,27,, 

39 DATA"IN THE MAIN LOBBY AND 
YOU ARE BY THE CONCESSION STAND. 
", 29,30,28,,,, 

40 DATA "IN THE CENTER OF THE 
MAIN LOBBY WHERE YOU SEE THE 
ENTRANCE TO THE STREET.", 30,32, 

29.31.. , 

41 DATA"IN THE STREET IN FRONT 
OF THE THEATRE AND YOU CAN'T GO 
IN WITHOUT A TICKET! NEED HELP?" 

, 31, , , 0, , , 

42 DATA"AT THE BOX OFFICE IN THE 
MAIN LOBBY.", 32,33,30,,,, 

43 DATA"BESIDE THE ELEVATOR IN 
THE MAIN LOBBY.", 33, , 32 , ,34,53, 

44 DATA"AN ACCESS LOBBY. THE 
THEATRE DOORS ARE SHUT AND THE 
USHERS WON'T LET YOU IN!", 34,,, 

33.35., 

45 * DATA"IN A CORRIDOR AND YOU 
SEE A STAIRCASE.", 35,,,34,37,,3 
6 

46 DATA"ON A STAIRCASE LANDING." 

, 36,,,,,35,57 

47 DATA"IN A SCENERY STORAGE 
AREA. PRETTY DUSTY IN HERE.", 37 
,,,35,38 , , 

48 DATA"IN A SCENERY CONSTUCTION 
SHOP. LOOKS LIKE THE STAGE HANDS 
ARE TAKING A BREAK!", 38,39,,37, 

4j2J f 

49 DATA"IN THE PAINT STORAGE 
AREA OF THE SHOP.", 39,,38,,,, 

50 DATA"IN THE SCENERY SHOP. THE 
STAGE HANDS MUST ALL BE ON STAGE 
FOR THE SHOW! HURRY!", 40,41,,38 
/ 42 , , 

51 DATA"IN THE TOOL STORAGE AREA 
AND IT IS CERTAINLY NEATLY KEPT. 
", 41,,40,,,, 

52 DATA"IN THE LOADING AREA OF 
THE SHOP. THE LOADING DOCK SIGN 
IS OVER THE NORTH DOOR.", 42,43, 

44.40.. , 

53*data"at THE LOADING DOCK IN 
AN ALLEY. THE DOOR SLAMS BEHIND 


YOU! IT'S JAMMED!! NEED HELP?", 

54 ' DATA"IN A WIDE NORTH-SOUTH 
CORRIDOR. A SIGN READS 'THIS WAY 
TO ORCHESTRA PIT'.", 44,42,64,45 

55 "DATA"™ THE ORCHESTRA PIT. IT 
IS VERY DARK. YOU STUMBLE AND 
FALL UNCONCIOUS! NEED HELP?", 45 

56 ' DATA"IN A NORTH-SOUTH 
CORRIDOR AT THE HEAD OF A STAIR 
CASE.", 46,47,,,,,11 

57 DATA"IN A NORTH-SOUTH 
CORRIDOR.", 47,51,46,48,,, 

58 DATA"IN THE ADMINISTRATIVE 
OFFICE OF THE THEATRE.", 48,52,, 
49,47, , 

59 ' DATA"IN THE MANAGER'S OFFICE. 
THERE IS AN UGLY PICTURE ON THE 
WALL.", 49 ,,,, 48,, 

60 DATA"IN A STORAGE ROOM. THERE 
ARE PILES OF MUSTY BOXES ALL 
AROUND YOU.", 50,,,51,,, 

61 DATA"IN A NORTH-SOUTH 
CORRIDOR.", 51,53,47,52,50,, 

62 DATA"THE COPYING ROOM. THERE 
IS A XEROX MACHINE AND NOT MUCH 
ELSE.", 52,,48,,51,, 

63 DATA"AT THE END OF A CORRIDOR 
NEXT TO AN ELEVATOR.", 53,,51,,, 
,33 

64 DATA"IN A NORTH-SOUTH 
CORRIDOR AT THE BASE OF A STAIR 
CASE.", 54,57,,55,,26, 

65 DATA"IN THE COSTUME STORAGE 
AREA.", 55,,,,54,, 

66 DATA"IN THE PROPS STORAGE 
AREA.", 56,,58,57,,, 

67 DATA"IN A NORTH-SOUTH 
CORRIDOR AT THE BASE OF A STAIR 
CASE.", 57,,54,,56,36, 

68 DATA"IN A STORAGE ROOM WITH 
MANY HATS AND WIGS SCATTERED 
ABOUT.", 58,56,,,,, 

69 DATA"AT THE END OF A CORRIDOR 
AND YOU SEE A POSTER ABOVE THE 
NORTH DOOR.", 59,61,,22,,, 

70 DATA"AT THE END OF A CORRIDOR 
AND YOU SEE A SIGN ABOVE THE 
SOUTH DOOR.", 60,64,61,,,, 

71 DATA"IN THE BACKSTAGE AREA. 

AN ANGRY STAGE MANAGER TO THE 
EAST DEMANDS TO SEE YOUR PASS.", 

61,60,59,0,,, 

72 DATA"FINALLY STANDING IN THE 
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WINGS OF THE STAGE. YOUR BLASTED 
UNDERSTUDY IS READY TO GO ON!!!! 

"z 62,,,,61, , 

73 DATA"IN THE GREEN ROOM (AN 
ACTOR'S LOUNGE WITH A SMALL 
KITCHENETTE). ", 62,,22,,,, 

74 DATA"IN A CORRIDOR. THE DOOR 
TO THE SOUTH IS LOCKED!", 64,44, 

75 ' R= 64:FORI=lTOR:READR$(I),RM( 
I):F0RA=1T06:READD(I,A):NEXT:NEX 
T 

76 V1$="TIMEINVEHELPQUITVERBGET 
DROPREADEXAMSMELBUY SHOOWEARSTAB 
HIT EAT SHOWUNLO" 

77 N1$ = "BUCKNOTIGREAKEYS PANTWALL 
SOAPCANDPROGTICKHAMMPAINMALLKNIF 
UNDESIGNTELEREVIPASSFLOWFLYELIST 
CAN WIG DRESPISTHEADCOSTPERFDOOR 
ENTRPOST" 



78 0=32:F0RI=1T00:READO$(I):NEXT 

79 F0RI=1T00:READLO(I):NEXT 

Bp DATA"A MOP BUCKET","CALLBOARD 
NOTICES","A TUBE OF GREASEPAINT 
","KEYS ON A RING","GIRL'S PANTI 
ES" 

81 DATA"A MAN'S WALLET","A BAR O 
F SOAP","CANDY FOR SALE","TONIGH 
T'S PROGRAM","TICKETS FOR SALE", 
"A HEAVY SLEDGE HAMMER" 

82 DATA"A CAN OF SPRAY PAINT","A 
RUBBER MALLET","A LARGE KNIFE", 

"YOUR UNDERSTUDY","A SIGN ON THE 
DOOR","TELEGRAMS ON THE WALL" 

83 DATA"TORN UP REVIEWS","A BACK 
STAGE PASS","BOUQUETS OF FLOWERS 
","PUBLICITY FLYERS","AUDITION L 
ISTINGS","A TRASH CAN" 

84 DATA"A BLONDE WIG","A BLUE DR 
ESS","A PROP PISTOL","VARIOUS HE 
ADGEAR","VARIOUS COSTUMES","A LA 


DY'S PERFUME" 

85 DATA"A LOCKED DOOR","A LOCKED 
ENTRANCE","A POSTER ON THE DOOR 

it 

86 DATA3,2,15,8,16,19,21,29,30,3 
2,38,39,41,63,62,60,22,17,13,4,5 
0,48,49,0,0,56,58,55,13,64,22,59 

87 L=1:L5=l:T=0 

88 CLS 

89 PRINT:PRINT"YOU ARE "R$(L) 

90 Z=0:FORA=1TOO 

91 IFLO(A)=L THEN PRINT"YOU SEE 
" ?0$(A) 

92 NEXT 

93 N$="OBVIOUS EXITSD$(1)=" N 
":D$(2)=" S":D$(3)=" E":D$(4)=" 
W":D$(5)=" U":D$(6)=" D" 

94 FORG=1TO6:IFD(L,G)>0THENN$=N$ 
+D$(G) 

95 NEXTG 

96 PRINTN$ 

97 TURNS=TURNS+1:1FTURN S=12 0 THEN 
G0T0256 

98 S=S+5:IFS>55THENT=T+1:S=0 

99 M=T+50 

100 IFS=0THENS$="00"ELSEIFS=5THE 
NS$="05"ELSEIFS=10THENS$="10"ELS 
EIFS=15THENS$="15"ELSEIFS=20THEN 
S$="20"ELSEIFS=25THENS$="25"ELSE 
IFS=30THENS$="30"ELSEIFS=3 5THENS 
$="35"ELSEIFS=40THENS$="40"ELSEI 
FS=45THENS$="45"ELSEIFS=50THENS$ 
="50"ELSEIFS=55THENS$="55" 

101 1$="":LINEINPUT" :";I$ 

102 IFI$=""THENPRINT"WHAT?":GOTO 
97:ELSE IF I$="LOOK"THEN 89 

103 IFLEN(1$)>1THEN 107 

104 L5=L 

105 G=INSTR("NSEWUD",1$):IFG=0TH 
ENPRINT"I DON'T UNDERSTAND.":GOT 
0 97 

106 IFD(L,G)>0THEN L5=D(L,G):L=L 
5:GOTO 89:ELSEPRINTR$(0) ?:GOTO 8 
9 

107 I$=I$+" ":SP=INSTR(I$,CHR$(3 
2)) 

108 V2$=LEFT$(I $,SP-1) :N2$=MID$( 
I$,SP+1):V$=LEFT$(V2 $,4):N$=LEFT 
$(N2 $,4):V=INSTR(V1$,V$):N=INSTR 
(N1$,N$) 

109 IFV=0THENPRINT"I DON'T UNDER 
STAND.":GOTO 97:ELSEV=(V-l)/4+1 

110 IFV<6THEN113 

111 IFSP=LEN(I$)THENPRINT"TRY US 
ING TWO-WORD COMMANDS.":GOTO 97 

112 IFN=0THENPRINT"I DON'T UNDER 
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STAND.":GOTO 97:ELSEN=(N-l)/4+1 

113 ON V G0T0114,115,119,127,128 
,130,162,188,198,222,228,231,234 
,239,242,246,248,253 

114 PRINT"7 :"M": "+S$:G0T097 

115 PRINT"YOUR INVENTORYNH=0 

116 FORI=lTOO:IFLO(I)=-lTHENNH=l 
:PRINTO$(I) 

117 NEXT:IFNH=0THENPRINT"NOTHING 

t ii 

118 GOTO 97 

119 IFL=10THENPRINT"SORRY. THE S 
IGN ABOVE THE DOOR USED TO SAY 

'EXIT'. YOU'LL HAVE TO TRY IT AG 
AIN FROM THE TOP.":G0T0261 


120 IFL=31THENPRINT"T0UGH LUCK. 
NEXT TIME TRY TO STAY IN THE 
THEATRE.":G0T0261 



121 IFL=4 3THENPRINT"LEFT SHIVERI 
NG IN THE COLD AS YOUR UNDERST 
UDY BECOMES A STAR.":G0T0261 

122 IFL=45THENPRINT"YOU AWAKEN T 

O THE STANDING OVATION FOR 

YOUR UNDERSTUDY. BETTER LUCK 

NEXT TIME.":G0T02 61 

123 H=H+1 

124 IFH=1THENPRINT"YOU'RE ON YOU 
R OWN. GET TO IT.":G0T097 

125 IFH=2THENPRINT"I TOLD YOU TH 
AT YOU MUST DO IT ON YOUR OWN." 
:G0T097 

126 PRINT"DON'T BOTHER ME ANYMOR 
E. I'LL LET YOU KNOW IF YOU NE 
ED HELP.":GOTO97 

127 PRINT"YOU QUIT AT 7 :"M": " 
+S$:PRINT:PRINT"TRY AGAIN SOON!" 
: END 

128 PRINT"one word commands 

INV HELP LOOK TIME QUI 
T two word verb commands 

GET DROP READ BUY 
EXAMINE EAT SHOW SMELL HIT 
WEAR STAB SHOOT UNLOCK" 

129 G0T097 

130 IFIN>5THENPRINT"YOU CAN'T CA 
RRY ANY MORE.":GOTO97 

131 IFN=1AND(LO(N)=L)THENLO(N)=- 
1: PRINT"MOP BUCKET TAKEN":G0T016 
1 

132 IFN=2AND(LO(N)=L)THENLO(N)=- 
1:PRINT"THEY'RE YOURS.":GOTO161 

133 IFN=3AND(LO(N)=L)THENLO(N)=- 
1: PRINT"YOU HAVE THE GREASEPAINT 
.":G0T0161 

134 IFN=4AND(LO(N)=L)THENLO(N)=- 
1:F(1)=1:PRINT"THE KEYS ARE NOW 
YOURS.":G0T0161 

135 IFN=5AND(LO(N)=L)THENLO(N)=- 
1:PRINT"YOU HAVE THE PANTIES. NO 
W WHAT?":GOTO161 

136 IFN=6AND(LO(N)=L)THENLO(N)=- 
1:F(8)=1:PRINT"YOU'VE GOT THE WA 
LLET.":GOTO161 

137 IFN=7AND(LO(N)=L)THENLO(N)=- 
1: PRINT"THE SOAP IS IN YOUR HAND 
S.":G0T0161 

138 IFN=8THENPRINT"HOW CAN THEY 
MAKE A PROFIT IF THEY GIVE IT 
AWAY? YOU MUST PAY.":GOTO97 

139 IFN=9AND(LO(N)=L)THENLO(N)=- 
1:PRINT"YOU HAVE THE PROGRAM. ":G 
0T0161 

140 IFN=10AND(LO(N)=L)THENPRINT" 
TICKETS TO THIS EXTRAVAGANZA 
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AREN'T FREE SO YOU MUST PAY CASH 
":G0T097 

141 IFN=11AND(LO(N)=L)THENPRINT" 
IT IS MUCH TOO HEAVY FOR AN 
ACTOR WIMP LIKE YOU TO PICK UP!" 
:GOTO97 

142 IFN=12AND(LO(N)=L)THENLO(N)= 
-1:PRINT"THE CAN OF SPRAY PAINT 
IS YOURS.":GOTOl61 

143 IFN=13AND(LO(N)=L)THENLO(N)= 
-1:F(2)=1:PRINT"YOU HAVE THE MAL 
LET.":G0T0161 

144 IFN=15AND(LO(N)=L)THENPRINT" 
YOU CAN'T JUST 'GET' HIM. YOU 
MUST DO SOMETHING TO HIM.":G0T09 
7 

145 IFN=14AND(LO(N)=L)THENLO(N)= 
-1:F(7)=1:PRINT"YOU HAVE THE KNI 
FE.":G0T0161 

146 IFN=16AND(LO(N)=L)THENPRINT" 
YOU CAN'T PULL IT OFF THE DOOR." 
:GOTO97 

147 IFN=17AND(LO(N)=L)THENLO(N)= 
-1:PRINT"YOU HAVE THE TELEGRAMS. 
":G0T0161 

148 IFN=18AND(LO(N)=L)THENLO(N)= 
-1:PRINT"THE SHREDDED REVIEWS AR 
E IN YOURHANDS.":G0T0161 

149 IFN=19AND(LO(N)=L)THENLO(N) = 
-1:F(3)=1:PRINT"YOU HAVE THE PAS 
S . ":G0T0161 

150 IFN=20AND(LO(N)=L)THENLO(N)= 
-1:PRINT"YOU HAVE THE FLOWERS.": 
G0T0161 

151 IFN=21AND(LO(N)=L)THENLO(N)= 
-1:PRINT"THE FLYERS ARE YOURS.": 
G0T0161 

152 IFN=22AND(LO(N)=L)THENLO(N)= 
-1:PRINT"YOU HAVE THE LISTINGS." 
:G0T0161 

153 IFN=23AND(LO(N)=L)THENLO(N) = 
-1:PRINT"I DON'T KNOW WHY YOU WA 
NT IT BUTIT IS NOW YOURS.":GOTOl 
61 

154 IFN=2 4AND(LO(N)=L)AND(F(9) ) T 
HENLO(N)=-l:PRINT"YOU NOW HAVE A 

BLONDE WIG. NOW WHAT?":G0T0161 

155 IFN=25AND(LO(N)=L)AND(F(9) ) T 
HENLO(N)=-l:PRINT"YOU NOW HAVE A 

LOVELY BLUE DRESS. WHAT NE 

XT?":G0T0161 

156 IFN=26AND(LO(N)=L)THENLO(N) = 
-1:F(6)=1:PRINT"YOU NOW HAVE A P 
ROP PISTOL.":G0T0161 

157 IFN=27AND(LO(N)=L)THENPRINT" 
THERE ARE SO MANY HATS AND WIGS 


YOU DON'T HAVE TIME TO CHOOSE.": 
GOTO97 

158 IFN=28AND(LO(N)=L)THENPRINT" 
SO MANY DIFFERENT COSTUMES YOU 
SIMPLY CAN'T DECIDE. SORRY!":GOT 
097 

159 IFN=29AND(LO(N)=L)THENLO(N)= 
-1:PRINT"YOU HAVE THE PERFUME NO 
W YOU BRUTE!":G0T0161 

160 PRINT"I DON'T UNDERSTAND.":G 
0T097 

161 IN=IN+1:G0T097 

162 IFN=1AND(LO(N)=-l)THENLO(N)= 
L:PRINT"IT DROPS WITH A CLATTER. 

SHHHH!!":G0T0187 

163 IFN=2AND(LO(N)=-l)THENLO(N)= 
L:PRINT"0 KAY.":G0T0187 

164 IFN=3AND(L0(N)=-1)THENLO(N)= 
L: PRINT"IT DROPS WITH A SPLAT!": 
GOTO187 

165 IFN=4AND(L0(N)=-1)THENLO(N)= 
L:F(1)=0:PRINT"JINGLE-JANGLE. TH 
EY ARE DROPPED.":G0T0187 

166 IFN=5AND(LO(N)=-l)THENLO(N)= 
L: PRINT"YOU'RE NOT AS PERVERTED 
AS I THOUGHT. GLAD YOU DROPPE 
D THEM.":G0T0187 

167 IFN=6AND(L0(N)=-1)THENLO(N)= 
L:F(8)=0:PRINT"MONEY MEANS NOTHI 
NG TO YOU? A SIGN OF GOOD CHAR 
ACTER. DROPPE D.":GOTO187 

168 IFN=7AND(L0(N)=-1)THENLO(N)= 
L:PRINT"IT SLIPS OUT OF YOUR HAN 
D AND SLIDES ALONG THE FLOOR." 

:G0T0187 

169 IFN=8AND(L0(N)=-1)THENLO(N)= 
L:PRINT"TRYING TO LOSE WEIGHT? I 
T IS DROPPED.":G0T0187 

170 IFN=9AND(L0(N)=-1)THENLO(N)= 
L: PRINT"YOU THROW IT DOWN WITH D 
ISGUST.":G0T0187 

171 IFN=10AND(L0(N)=-1)THENLO(N) 
=L:PRINT"YOU ARE THROWING AWAY E 
XPENSIVE TICKETS. YOU SHOULD SCA 
LP THEM.":GOTOl87 

172 IFN=12AND(L0(N)=-1)THENLO(N) 
=L: PRINT"YOU PLACE IT DOWN GENTL 
Y. PAINT CANS CAN EXPLODE YOU KN 
OW!":G0T0187 

173 IFN=13AND(LO(N)=-l)THENLO(N) 
=L:F(2)=0:PRINT"IT IS DROPPED.": 
GOTOl87 

174 IFN=14AND(L0(N)=-1)THENLO(N) 
=L: F(7)=0:PRINT"CAREFUL! YOU ALM 

OST CUT YOUR FOOT OFF YOU CLU 
MSY OAF!":GOTOl87 
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175 IFN=17AND(LO(N)=-l)THENLO(N) 
=L:PRINT"THEY FLUTTER TO THE FLO 
OR.":GOTO 187 

176 IFN=18AND(LO(N)=-l)THENLO(N) 
=)3:PRINT"THE PIECES SCATTER AROU 
ND THE ROOM.":G0T0187 

177 IFN=19AND(LO(N)=-l)THENLO(N) 
=L: F ( 3) =)3 : PRINT "IT IS DROPPED.": 
G0T0187 

178 IFN=2)3AND(LO(N)=-l) THENLO (N) 
=L:PRINT"THEY ARE DROPPED.":GOTO 
187 

179 IFN=21AND(LO(N)=-l)THENLO(N) 
=L:PRINT"THEY ARE DROPPED.":GOTO 
187 

18) 3 IFN=22AND(LO(N)=-l)THENLO(N) 
=L: PRINT"YOU MAY BE LOOKING FOR 
WORK IF YOU DON'T HURRY UP!":GO 
TO 187 

181 IFN=23AND(LO(N)=-l)THENLO(N) 
=L:PRINT 1 "IT DROPS WITH A CLATTER 
. YOU AREA NOISY FELLOW AREN'T Y 
OU?":G0T0187 

182 IFN=24AND(LO(N)=-l)THENLO(N) 
=L: F (4) =)3 : PRINT"AND IT WENT SO N 
ICELY WITH YOUR SIDEBURNS!":GOTO 
187 

183 IFN=25AND(LO(N)=-l)THENLO(N) 
=L:F(5)=)3:PRINT"WHAT'S THE MATTE 
R? DIDN'T THE COLOR MATCH YOUR 

EYES?":G0T0187 

184 IFN=26AND(LO(N)=-l)THENLO(N) 

=L: F (6) =)3 : PRINT" PLACE IT DOWN GE 
NTLY. THESE THINGS CAN BE DA 

NGEROUS.":G0T0187 

185 IFN=29AND(LO(N)=-l)THENLO(N) 
=L:PRINT"YOU WOULD HAVE PREFERRE 
D ENGLISHLEATHER PERHAPS?":GOTOl 
87 

186 PRINT"I DON'T UNDERSTAND.":G 
0T097 

187 IN=IN-1:G0T097 

188 IFN=2AND(LO(N)=LORLO(N)=-l)T 
HENPRINT"DUE TO ILLNESS NIGEL WR 
ATH-HORN WILL BE UNABLE TO PERFO 
RM TODAY.":GOTO97 

189 IFN=9AND(LO(N)= -l)THEN PRINT 
"BECAUSE OF ILLNESS, MR. NIGEL 

WRATH-HORN WILL NOT PERFORM IN 
TONIGHT'S SHOW. HIS UNDERSTUDY 
WILL REPLACE HIM.":G0T097 

19) 3 IFN=16AND (LO (N) =L) THENPRINT" 
NO ONE ADMITTED BEYOND THIS AREA 
WITHOUT A BACKSTAGE PASS.":G0T09 
7 

191 IFN=17AND(LO(N)=LORLO(N)=-l) 


THENPRINT"SOME WISH YOU WELL AND 
OTHERS ARE ADDRESSED TO YOUR 
UNDERSTUDY":GOTO97 

192 IFN=18AND(LO(N)=-l)THENPRINT 
"THEY ARE YOUR GOOD REVIEWS FROM 

THE TOUR. RIPPED UP FOR SPITE." 

:GOTO97 

193 IFN=19AND(LO(N)=-l)THENLO(24 
)=58:LO(25)=55:F(9)=1:PRINT"IT I 
S THE PASS HE SECURED FOR A YOUN 
G BLONDE THEATRE GROUPIE!":G0T09 
7 

194 IFN=21AND(LO(N)=-l)THENPRINT 
"THEY ARE PUBLICITY FOR FUTURE 

SHOWS YOU ARE SUPPOSED TO BE IN 
. ":G0T097 

195 IFN=22AND(LO(N)=-l)THENPRINT 
"AUDITIONS YOU MAY NEED IN THE 

FUTURE IF YOU DON'T SUCCEED NOW 
.":G0T097 

196 IFN=32AND(LO(N)=L)THENPRINT" 
NOBODY ADMITTED BEYOND THIS 
POINT WITHOUT A BACKSTAGE PASS." 
:GOTO97 

197 PRINT"I DON'T UNDERSTAND.":G 
0T097 

198 IFN=1AND(LO(N)=-l)THENPRINT" 
JUST A MOP BUCKET.":GOTO97 

199 IFN=3AND(LO(N)=-l)THENPRINT" 
IT SAYS 'MAKEOVER MAKEUP-FIRST 
NAME IN COVERING YOUR FACE.' 
THERE IS AN ODD SMELL.":GOTO97 
2)3)3 IFN=4AND(LO (N) =-l) THENPRINT" 
MANY KEYS. LOOKS LIKE YOU COULD 
OPEN EVERY DOOR IN THE THEATRE." 
:G0T097 

2)31 IFN=5AND (LO (N) =-1) THENPRINT" 
PRETTY. PINK. SOFT SATIN.":G0T09 
7 

2)32 IFN=6AND (LO (N) = -1) THENPRINT" 
LOTS OF MONEY BUT NO I.D. INSIDE 
":G0T097 

2)33 IFN=7AND (LO (N) =-l) THENPRINT" 
A BAR OF IVORY S0AP":G0T097 
2)34 IFN=8AND (LO (N) = -1) THENPRINT" 
YUM! A SNICKERS BAR!":G0T097 
2)35 IFN=1)3AND (LO (N) = -l) THENPRINT 
"THESE ARE FOR TOMORROW'S SHOW! 
WOULDN'T YOU LIKE TO BE ONSTAGE 
FOR THAT SHOW? THEN HURRY!":GOT 
097 

2)36 I FN=11 AND (LO (N) = L) THENPRINT" 
YOU COULD GET A HERNIA HAULING 
THIS THING AROUND!":GOTO97 
2)37 IFN=12AND(L0(N)=-1) THENPRINT 
"AN OLD CAN OF RED SPRAY PAINT." 
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:G0T097 

208 IFN=13AND(LO(N)=-l)THENPRINT 
"A WHITE RUBBER MALLETG0T097 

209 IFN=14AND(LO(N)=-l)THENPRINT 
"IT IS VERY SHARP! YOU COULD KIL 
LSOMEONE WITH THIS! BE CAREFUL!! 

":G0T097 

210 IFN=15AND(LO(N)=L)THENPRINT" 
HE IS GETTING INTO CHARACTER AND 
DOES NOT SEE YOU AS YOU CREEP UP 
ON HIM!":GOTO97 

211 IFN=20AND(LO(N)=-1)THENPRINT 
"LONG STEM ROSES AND BOUQUETS OF 

CARNATIONS.":GOTO97 

212 IFN=23AND(LO(N)=-l)THENPRINT 
"NOTHING HERE. HURRY OR YOUR 

CAREER WILL BE TRASHED!":G0T097 

213 IFN=24AND(LO(N)=-l)THENPRINT 
"IT WOULD LOOK SOOOO CUTE ON YOU 
!":G0T097 

214 IFN=25AND(LO(N)=-l)THENPRINT 
"AMAZING! IT HAPPENS TO BE YOUR 

SIZE!":G0T097 

215 IFN=26AND(LO(N)=-l)THENPRINT 
"THERE ARE THREE BLANK CARTRIDGE 
SIN IT.":G0T097 

216 IFN=27AND(LO(N)=L)THENPRINT" 
MANY STYLES AND TYPES. TOO MANY 
TO CHOOSE FROM.":G0T097 

217 IFN=28AND(LO(N)=L)THENPRINT" 
A STAGGERING ARRAY. DON'T WASTE 
YOUR TIME TRYING TO DECIDE.":GOT 
097 

218 IFN=29AND(LO(N)=-l)THENPRINT 
"A VERY CHEAP BRAND.":GOTO97 

219 IFN=30AND(LO(N)=L)THENPRINT" 
THE DOOR IS SECURELY LOCKED.":GO 
T097 

220 IFN=31AND(LO(N)=L)THENPRINT" 
IT IS CLOSED AND LOCKED.":G0T097 

221 G0T0188 

222 IFN=3AND(LO(N)= -l)THENG0T025 
7 

223 IFN=5AND(LO(N)=-l)THENPRINT" 
YOU'RE DISGUSTING! SORRY, YOU 
PERVERT, THEY ARE CLEAN. HA!":GO 
T097 

224 IFN=7AND(LO(N)=-1)THENPRINT" 
IT SMELLS LIKE SOAP. WHAT ELSE?" 

:G0T097 

225 IFN=20AND(LO(N)=LORLO(N)=-1) 
THENPRINT"THEY SMELL LOVELY. NOW 

HURRY!":GOTO97 

226 IFN=29AND(LO(N)=-l)THENPRINT 
"OBVIOUSLY FROM SOME YOUNG TEENY 

BOPPER! IT SMELLS CHEAP.":G0T09 


7 

227 PRINT"I DON'T UNDERSTAND.":G 
0T097 

228 IFN=8AND(LO(N)=L)AND(F(8))TH 
ENLO(N)=-l:PRINT"OVERPRICED, BUT 

YOU BOUGHT IT.":G0T0161 

229 IFN=10AND(LO(N)=L)AND(F(8) )T 
HENLO(N)=-l:PRINT"VERY EXPENSIVE 

BUT YOU CAN AFFORD IT!":GO 

T0161 

230 PRINT"I DON'T UNDERSTAND.":G 
0T097 

231 IFN=15AND(LO(N)=L)AND(F(6))T 
HENG0T0258 

232 IFN=26AND(LO(N)=-l)THEN PRIN 
T "YOU MUST TELL ME WHO TO SHOOT 
. ":G0T097 

233 PRINT"I DON'T UNDERSTAND.":G 
0T097 

234 IFN=3AND(LO(N)=-l)THENG0T025 
7 

235 IFN=5AND(LO(N)=-l)THENPRINT" 
TAKE YOUR PERVERSIONS ELSEWHERE 
PLEASE. I REFUSE.":G0T097 

236 IFN=24AND(LO(N)=-l)THENF(4)= 
1:PRINT"IT LOOKS VERY-UH-INTERES 
TING ON YOU.":G0T097 

237 IFN=25AND(LO(N)=-1)THENF(5) = 
1:PRINT"AND THIS ONE FITS JUUUST 

RIGHT.":G0T097 



238 PRINT"I DON'T UNDERSTAND.":G 
0T097 


239 IFN=15AND(LO(N)=L)AND(F(7))T 
HENG0T0259 

240 IFN=14AND(LO(N)=-l)THEN PRIN 
T"YOU MUST TELL ME WHO TO STAB." 
:G0T097 
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241 PRINT"I DON'T UNDERSTANDG 
0T097 

242 IFN=15AND(LO(N)=L)AND(F(2) ) T 
HENG0T02 64 

243 IFN=15THENPRINT"YOU MUST HAV 
E SOMETHING TO KNOCKHIM OUT WITH 
.":G0T097 

244 IFN=13AND(LO(N)= -l)THENPRINT 
"YOU MUST TELL ME WHO TO HIT.":G 
0T097 

245 PRINT"I DON'T UNDERSTANDG 
0T097 

246 IFN=8AND(LO(N)=-l)THENLO(N)= 
0:PRINT"PRETTY HUNGRY AREN'T YOU 
?":G0T0187 

247 PRINT"I DON'T UNDERSTANDG 
0T097 

248 IFN=19AND(LO(N)=-l)AND(F(4) ) 
AND(F(5))THEND(61,3)=6 2:PRINT"TH 
E RUSE WORKED. THE CRUEL STAGEMA 
NAGER LETS YOU ENTER THE STAGE": 
G0T097 

249 IFN=19AND(LO(N)=-l)AND(L5=61 
)THENGOTO260 

250 IFN=19AND(LO(N)=-l)THENPRINT 
"IT WILL DO YOU NO GOOD HERE!":G 
0T097 

251 IFN=10AND(LO(N)=-1)THENPRINT 
"TICKETS FOR TOMORROW NIGHT WILL 

NOT HELP YOU TONIGHTG0T097 

252 PRINT"I DON'T UNDERSTANDG 
0T097 

253 IFN=30AND(LO(N)=L)AND(F(1) )T 
HEND(64,2)=60:PRINT"THE DOOR IS 
UNLOCKED AND OPENEDG0T097 

254 IFN=31AND(LO(N)=L)AND(F(1) ) T 
HEND(2 2,4)=5 9:PRINT"THE ENTRANCE 

IS UNLOCKED AND OPENED.":GOT 
097 

255 PRINT"I DON'T UNDERSTAND.":G 
0T097 

256 PRINT"SORRY. YOU'VE TAKEN TO 

O LONG TO STOP YOUR UNDERSTUDY. 
THE CURTAIN GOES UP. THE S 

HOW GOES ON. HE IS A STAR AND Y 
OU ARE YESTERDAY'S NEWS.":GOT 
0262 

257 PRINT"THE GREASEPAINT IS VER 
Y OLD. THESTENCH MAKES YOU DIZZY 

AND YOU PASS OUT. BY THE TIME 
YOU AWAKE IT IS TOO LATE.":G0T02 
61 

258 PRINT"JUST BLANKS CAN'T KILL 
HIM. THE SHOTS BRING THE QUEEN' 

S BODY- GUARDS SWARMING AND YO 
U ARE HAULED OFF TO JAIL.":G 


0T0261 

259 PRINT"YOU KILL HIM AND GO ON 

IN TRIUMPH. BUT THE MURDE 

R IS DISCOVERED AT INTERMIS 

SION AND YOU ARE ARRESTED. SORR 
Y. ":G0T0261 

260 PRINT"SHE DOESN'T BELIEVE YO 
UR STORY OR DISGUISE AND PROMPT 

LY THROWS YOU OUT OF THE THEATRE 
h 

261 PRINT"THAT MISCUE OCCURRED A 
T:":PRINT"7 :"M": "S$ 

262 PLAY"V25T303P4L2CL3CL8CL2CE- 
L8DL3DL8CL3C02L8B03L2CP2":F0RX=1 
TO2000:NEXTX 

263 RESTORE:GOTO10 

264 PRINT"YOU KNOCK HIM UNCONSCI 
OUS AND GOONSTAGE IN TRIUMPH. TH 
E QUEEN LOVES YOUR PERFORMANCE 

AND YTOU ARE THE TOAST OF LONDO 
N!!!!!!!!!":PRINT:PRINT"AND LOOK 
—WITH TIME TO SPARE!?!":PRINT:P 
RINT"7 :"M": "S$ 

265 PRINT:PRINT"STANDBY FOR YO 
UR REWARD!!!!!!" 

266 FORX=1TO2000:NEXTX 

267 CLEAR300:G0SUB270:G0T0285 

268 'title pages for 

269 'an actor's nightmare 

270 PM0DE4,1: PCLS1 

271 N$(1)="C1R4ND6R4BR6D6U3R6D3U 
6BR6NR6D3NR6D3NR6":N$(2)="U8E4F4 
D2NL8D6BR8R4NE2L4H2U8E2R4NF2BR8R 
4ND12R4BR8NR4G2D8F2R4E2U8H2BR8D1 
2U6R4F2ND4H2E2U2H2NLBR6NR2D2NR2B 
D2E2U2BR4NR8D6R8D6L8" 

272 N$(3)="BM148 , 120C1U12D2F8NU1 
0D2BR4R6L3U12NL3R3BR6R4NF2L4G2D8 
F2R4E2U4NL4BR6NU6ND6R6ND6U6BR4R4 
ND12R4BR4ND12F4E4D12BR6U8E4F4D4N 
L8D4BR6U12R4F2D2G2NL4F2D4BR6NR6U 
6NR4U6R6" 

273 N$(4)="BM17,120U12R5F3D6G3L5 
BR16U12R4F2D2G2NL4F2D4BR8NR8U6NR 
6U6R8BD12BR8U8E4F4D2NL8D6BR8U12F 
4E4D12" 

274 W$(1)="BM22,180C0D8R4U4NL4BR 
4F2NE2G2NL8BR16NU12E4F4NU12BR6U8 
E4F4D2NL8D6BR6NU12R8BR8U12NL4R4B 
R20" 

275 W$(2)="R4ND12R4BR6D12U6R8NU6 
D6BR6R8L4U12L4R8BR6D12U10F8D2U12 
BR6D12U10F8D2U12BR6NR8D6NR6D6R8B 
R6R8U6L8U6R8" 

276 W$(3)="BM22,175C0BR2NG2R4F2B 
L8D8F2R4E2BR8NF2U8E2R4F2D8G2L4BR 
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14U12D2F8NU10D2BR16BU6NL3D4G2L4H 

2U8E2R4F2BD10BR8U12R4F2D2G2NL4F2 

D4BR8U8E4F4D2NL8D6BR8BU12R4ND12R 

4BR8D10F2R4E2U10BR8" 

277 W$(4)="D12R8BR8U8E4F4D2NL8D6 
BR12U12NL4R4BR8R6L3D12L3R6BR8BU2 
NF2U8E2R4F2D8G2L4BR14U12D2F8NU10 
D2BR8BU2F2R4E2U2H2L4H2U2E2R4F2" 

278 CIRCLE (60,108) ,60,0,1, .05, .5 
5: CIRCLE (196,108) , 6)3,0, 1, . 95 , . 45 
:LINE(116,128)-(160,44),PRESET:L 
INE(4,92)-(48,8),PRESET:LINE(142 
,130)-(98,44),PRESET:LINE(252,92 
)—(208,8),PRESET:CIRCLE(112,0),6 
6,0,1,.13,.49:CIRCLE(144,0),66,0 
,1,.03,.38 

279 RETURN 

280 CIRCLE(42,146),40,0,1,.63, .0 
2:CIRCLE(3 4,165),50,0,1,.70, .95: 
CIRCLE(53,90),28,0,1,.63,.82:CIR 
CLE(44,47),28,0,1,.13,.32:CIRCLE 
(84,104),28,0,1,.78,,97:CIRCLE(1 
12,72),28,0,1,.28,.47:PAINT(48,2 
4),0,0:PAINT(128,100),0,0:PAINT( 
148,56),0,0 

281 LINE(144,74)-(255,126),PRESE 
T,BF:DRAW"BM180,78"+N$(1):DRAW'B 
Ml62,102"+N$(2):DRAWN$(3):DRAWW$ 
(1):DRAWW$(2) 


282 SCREEN1,1 

283 PLAY"02T3L4G03L4.C02L4CL8CL4 
CL4.GL4CL8CL4CL4.GL4CL8CL4CL1AL8 
DEFGAB03 CDL4E L8 EL3.C#02L8A03L4DL 
8D02L4BL8AL4G03CL8C02L2AL8DEFGAB 
03CDL4EL8EL3C#02L4A03L4.D02L4B03 
L8CL4DL1C" 

284 GOTO10 

285 CIRCLE(196,108),40,0,1,.97,. 
45:CIRCLE(188,84),50,0,1,.07,.35 
:CIRCLE(158,110),28,0,1,.63,.82: 
CIRCLE(150,67),28,0,1,.13,.32:Cl 
RCLE(226,83),28,0,1,.52,.72:CIRC 
LE(19 4,5 5),28,0,1,.03,.22:PAINT( 
208,24),0,0:PAINT(128,100),0,0:P 
AINT(108,56),0,0 

286 LINE(0,74)-(107,126),PRESET, 
BF:DRAW"BM32,78"+N$(1):DRAW"BM14 
,102"+N$(2):DRAWN$(4):DRAWW$(3): 
DRAWW$(4) 

287 SCREEN1,1 

288 PLAY"T303L4C02G#FD#L8FL4G#L8 
A#L403CP4EFL8EL1FL8G#G#G#L2. FL8D 
#D#D#L2.C02L6A#03C02A#G#A#03CL4F 
P4L2GP402L8G#L4G#L8GL4G#L2A#P403 
L8CL4C02L8A#03L4CL2C#P4L4D#L2G#P 
8L4D#L2G#L1D#G#" 

289 G0T0289 /» 
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The Time Machine 


A 


Program by 
Jason Hunter Dolinsky 


s a scientist and inventor, your entire life has 
been dedicated to the constant implementation 
of creative dreams and ideas. However, that 
one, earth-shaking discovery continued to 
elude you, year after year, decade after decade. 
But that appears to be all in the past now, so 
to speak, with your newest and most miracu¬ 
lous invention: the time machine. How ironic, 
you were practically ready to admit defeat to 
the one element you now possess control of. . . 
time. 

The machine is a surprisingly small appara¬ 
tus, about the size of a wristwatch. It is designed 
to take its user into any point in time. Four 
color-coded buttons on the face of the mech¬ 
anism can be preset to allow travel into any 
specific historical era, either past or future. You 
simply press the desired button to enter your 
destination. Of course, one button must be 
reserved to permit a safe return to the present. 

To confirm the effectiveness of your inven- 
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tion, a trial expedition involved a short exploration into the age of the dinosaurs. 
However, upon returning, you discover that the time machine had a dramatic 
effect on three historical events. Due to a design flaw, the law of infinite entropy 
or time disorder will destroy the universe, both past and present, at midnight 
tonight. 

It is now 10:00 p.m. You must use the time machine to journey into the three 
eras in which history has been altered and attempt to correct them. The buttons 
have been preset for each of the eras. The white button is set for return to the 
present. Of course, if your Adventures are less than completely successf ul within 
the two hours remaining, all time will be destroyed. 

The Time Machine is a text Adventure. As long as you are in possession 
of the time machine, the date and a real-time clock will be displayed in the 
upper portion of the screen. 

Single-key directional commands of N, 5, E, W, U and D and the standard two- 
word commands are accepted. Commands may be abbreviated by typing only 
the first three letters of both the verb and noun to speed game play (e.g., SHO 
MAI may be used instead of SHOOT MAILMAN). The following verbs may be used: 


BUY 

GO 

LOOK 

SAVE 

CHANGE 

HIDE 

PUSH 

SAY 

CLIMB 

JUMP 

PUT 

SCORE 

GET 

LISTEN 

READ 

SHOOT 

GIVE 

LOAD 

REMOVE 

WEAR 


Be sure to use the LISTEN command whenever anyone is talking to gather 
vital clues in solving the Adventure. 

A game save feature may also be used, but the program is designed to SAVE 
and LOAD only from disk. If you do not have a disk drive attached, this option 
is not available. 

Due to memory limitations, disk users must enter P0KE25,14: POKE 
35B4,0: NEW and tape users must type PCLEAR1 before loading the Adventure. 

If the BREAK key is inadvertently pressed during game play, type 
CLS: PRINT: G0T09 to continue playing the Adventure at the point you left off 

Jason Dolinsky is a senior and honor student at Herricks High School in 
Long Island, New York. He is a self-taught programmer and would enjoy 
receiving correspondence regarding his program. Questions or comments 
may be addressed to Jason at 115 Robby Lane, Manhasset Hills, NY 11040 . 
Please enclose an SASE when writing for a reply. 
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TIMEMACH 32K ECB 


■ 1 

Caution — Packed Lines! 

Some of the lines in this program are “packed” and may be too long to enter in a normal fashion. If the CoCo stops accepting characters, 
press ENTER, go into the EDIT mode (type EDIT followed by the line number), press ‘X’ (the EDIT command for extending the line), 
and then type in the few remaining characters. (We do not recommend using this technique in your own programs as serious problems 
could result.) 


1 CLS : PRINT04J3 , "THE" : PRINT0141, " 
TIME":PRINT024 3,"MACHINE":PRINT0 
288,"CREATED BY JASON HUNTER DOL 
INSKY":PRINTTAB(2)"DEDICATED TO 
ADAM AND BRAD 

2 CLEAR15J3J3,32739: GOSUB2J36 

3 RESTORE: PRINT:Tl=lj3:T2=j3j3:TP$= 
"PM":RI=1:DT$="NOV 6,2879":CA=2: 
0P=J3 

4 TIMER=J3 : ZV=48 : ZO=25 : ZR=29 

5 DIM OLONG$(ZO),OI$(ZO),0(Z0),R 
$(ZR),RS$(ZR),R(ZR,5),T(3),F(15) 

6 VL$="N!iSi!E!!WIIUI!DIiGOiCHAS 
ETASKTALQUESAYHITJUMKNOKILLISHEA 
TRALOOREAEXASEAPUSPREPULGETTAKGR 
AWEAHIDGIVBUYSELPUTPLAHELCLUHINS 
COLOASAVREMI i i INVDROLEA" : T ()3) =1: 
T(1)=2:T(2)=16:T(3)=2 6 

7 R=1:FORI=lTOZR:READR$(I),RS$(I 
) ,R(I,)3) /R(I/1) /R(I / 2 ) /R(1,3) ,R( 
1,4),R(I,5):NEXTI 

8 NL$="":FORI=lTOZO:READOLONG$(I 
),01$(I),00$,0(1):NL$=NL$+LEFT$( 
00$+STRING$(3,12 8) ,3) :NEXTI 

9 IFO(22)<>)3 THENF ( 9 ) =J3 

1) 3 SC=1 :W$=" "+R$(R) :GOSUB175: 

Wl$=" " :RT=j3 

11 F0RI=1T0Z0: IFRO0 (I) THEN14 

12 W2$=0L$(I):IFLEN(Wl$)+LEN(W2$ 
)>245 THENRT=1:G0T015 

13 W1$=W1$+" "+W2 $ 

14 NEXTI :RT=j3 

15 GOSUB18j3 

16 IFRT=1 THENW1$="":W$=" ":GOTO 
12 

17 EXEC 

18 * 

19 W$="":Wl$="":PRINT"WELL ? ";: 
WW$="WELL ? ":G0SUB211:CM$=IN$:G 
0SUB23 6:IFCM$ = ""THEN19 

2) 3 LM$=LEFT$(CM$+" ",4):IFLM$ 
="QUIT"THEN234 

21 IFLM$="PRIN"ORLM$="HARD"THENW 
$="TURN PRINTER ON":GOSUB178:F(1 
2)=-l:G0T019 

22 SAY$=" " : IFINSTR(CM$ , " " ) =)3 TH 
EN VB$=CM$:NN$="":G0T025 

23 I=INSTR(CM$," "):VB$=LEFT$(CM 
$,I-1):IFI=LEN(CM$)THENNN$="":GO 
T025 


24 NN$=MID$(CM$,1+1):SA$=NN$ 

25 VB$=LEFT$(VB$ + "I I I ", 3) :NN$=LE 
FT$ (NN$+"I!i",3) :VB=1:NN=1 

26 IFVB$="CLI"ORVB$="WAL"THENVB$ 
="GOi"ELSEIFVB$="SHO"THENVB$="KI 
L" ELSEIFVB$="EAT"THENW$="HOW CA 
N YOU THINK OF FOOD AT A TIME LI 
KE THIS? YOU ARE"+STR$ (12*6)3-T1* 
60-T2)+" MINUTES AWAY FROM ARMAG 
EDDON.":GOSUB178:G0T019 

27 IFNN$="VOL"AND R=1 THENNN$="A 
LL"ELSEIFNN$="SLE"THENNN$="PIL"E 
LSEIFNN$="BIL"THENNN$="DOL" 

28 VB=INSTR(VB,VL$,VB$) :IFVB=)3 T 
HEN2)3)3 

29 IF(VB-l)-3*INT( (VB-l)/3)=)3 TH 
EN3 2 

3) 3 VB=VB+1: IFVB>LEN(VL$) THEN2)3)3 

31 G0T028 

32 NN=INSTR(NN,NL$,NN$) :IFNN=)3 T 
HEN 3 5 

33 IF (NN-1) -3 *INT ( (NN-1) /3 ) =)3 TH 
EN35 

34 NN=NN+1: IFNN>LEN (NL$) THENNN=)3 
ELSE32 

35 NN=INT((NN-l)/3+l) 

36 G0SUB166:ON(VB-1)/3 + 1 G0T037, 
38,39,42,43,44,47,55,55,62,62,62 
,62,66,66,66,66,69,69,75,77,77,7 
7,77,92,92,92,10)3,1)30,10)3 , 111, 11 
3,117,12)3,124,125,12 5,13 2,13 2,13 
2,13 7,144,148,154,157,15 7,16)3,16 

37 DR=)3 : GOTO 4 5 

38 DR=1:GOTO45 

39 DR=2 : IFR=12ANDF ( 2 ) =)3 THENW$=" 
WHEN YOU JUMPED ON THE SHIP, THE 

SAILORS DIDN'T LIKE THE LOOKS O 
F YOU AND THREW YOU ONTO THE DOC 
K, LAUGHING THEIR EARS OFF.":GOS 
UB17 8:G0T019 

4) 3 IFR=19ANDF (9 ) =)3 THENW$="AS YO 
U ENTER THE BUILDING AND BEGIN T 
O WALK DOWN THE HALL, A SOLDIER 
SPOTS YOU. HE PULLS OUT HIS GUN 
AND POINTS IT TOWARD YOU.":GOSUB 
178:G0T02 3 3 

41 G0T045 

42 DR=3:GOTO45 

43 DR=4:GOTO45 
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44 DR=5 

45 IFR(R, DR) =)3 THENW$="I'M SORRY 
, BUT YOU CANNOT GO IN THAT DIRE 
CTION.":GOSUB17 8:G0T019 

46 R=R(R,DR):G0T09 

47 IFNN$="N!!"ORNN$="NOR"THEN37 

48 IFNN$="S!!"ORNN$="SOU"THEN38 

49 IFNN$="E!!"ORNN$="EAS"THEN39 

5) 3 IFNN$="W! ! "ORNN$="WES"THEN42 

51 IFNN$="U!!"ORNN$="UP!"THEN43 

52 IFNN$="D!!"ORNN$="DOW"THEN44 

53 IFNN$="TRE"AND R=16THENR=25:G 
0T09 

54 W$="I CANNOT GO THERE. PLEASE 
TRY A DIRECTION LIKE EAST OR WE 

ST.":GOSUB178:G0T019 

55 IFF (13 ) =-10R (NN$O"C0U"ANDNN$ 
< >"HEA"ANDNN $ < >"DE S"ANDNN $ < >"TRI 
"ANDNN$<>"PLA")THEN200 

56 IFRO14THEN200 

57 PRINT"WITH WHAT ? "?:WW$="WIT 
H WHAT ? ":GOSUB211:IN$=LEFT$(IN 
$+"! i !",3) :IFO(4)Oj3 0R(IN$O"HI 
S"ANDIN$O"B00"ANDIN$O"MAP") THE 
NW$="I'M SORRY, BUT THAT'S NOT P 
OSSIBLE.":GOSUB17 8:G0T019 

58 W$="LOOKING AT THE MAPS IN TH 
E HISTORY BOOK, YOU MANAGED TO F 
IGURE OUT A COURSE THAT LEADS TO 

THE NEW WORLD. ":IFO(3)<>)3 ORF( 
4)=1 THEN61 

59 W$=W$+ M YOU TELL THE NAVIGATOR 
THE NEW COURSE, AND HE ARRANGES 
IT. FORTUNATELY, HE DIDN'T QUES 

TION YOUR ORDERS, PROBABLY DUE T 
O THE FACT THAT YOU HAD THE MAP. 
":GOSUB178:F(13)=-l:FX=1sR$(14)= 
LEFT$(R$(R) , 83 ) +MID$ (R$ (R) ,2)37) : 

:G0T02 29 

6) 3 G0T019 

61 W$=W$+"UNFORTUNATELY THE NAVI 
GATOR COULD NOT UNDERSTAND YOU." 
:GOSUB17 8:G0T019 

62 IF(NN$="SI!"ANDF(6)=2AND(0(3) 
<>)30RF ( 4 ) =1) ) OR (NN$=" YES "ANDF (6) 
=2AND (0(3) =)3ANDF ( 4 ) =)3) ) THENW$="H 
E HEARD THE REPLIES AND LEFT THE 

PRISON GOING EAST WITH SOME OF 
THE PRISONERS FOLLOWINGR (1)3,2 
) =6: F(5) =)3: F (6) =)3: F (2) =1:G0SUB17 
8:G0T019 

63 IF(LEFT$(SAY$+" ",3)="J0A"0 
RLEFT$(SA$+" ",3)="WAL")ANDCJ= 
)3 ANDR=27 THEN64 ELSEW$="YOU SAI 
D "+CHR$(34)+SAY$+CHR$(34)+" BUT 

NOTHING HAPPENED.":GOSUB178:GOT 


019 

64 W$="YOU CALL FOR JOAN AND SHE 
GOES TO YOU. SHE SAYS 'HI. I'M 

SORRY, BUT I MUST KEEP THIS SHOR 
T. I'M VERY BUSY BECAUSE MY ACCO 
UNTANT, THE CROOK, STOLE MOST OF 
MY CAMPAIGN MONEY. WITHOUT IT I 
WON'T BE ABLE TO RUN MY CAMPAIG 
N. IT IS A CRITICAL" 

65 CJ=1:Wl$=" TIME AND I NEED TH 
E MONEY NOW. I MIGHT EVEN HAVE T 
O DROP FROM THE CAMPAIGN. . . WELL 
, I'M SORRY FOR TELLING YOU MY P 
ROBLEMS. I'M SORRY, BUT I MUST R 
UN.'":GOSUB178:G0T019 

66 IF(NN$="SOL"ORNN$="NAZ")ANDO( 
2)3) <>-lANDR=25THENW$=" YOU JUMPED 

DOWN FROM THE TREE, LANDED ON T 
HE SOLDIER, AND KNOCKED HIM UNCO 
NSCIOUS. UNFORTUNATELY HIS GUN P 
OPPED OUT OF HIS HAND AND INTO A 
SEWER. " : G0SUB178 :0 (2)3) =-l: 0 (19) 
=-1:0(17)=16:R=16:G0T019 



67 IFNN$="HIT"ANDO(16)=R ANDO(14 
) =)3 THENW$=" YOU PULLED OUT YOUR 
GUN AND SHOT HIM IN THE HEAD. ": G 
0SUB17 8:0(16)=-1:0(21)=R:G0T019 

68 G0T02)3)3 

69 IFF (6) =)3 OR R<>1)3 THENW$="YO 
U HEAR NOTHING UNUSUAL.":G0SUB17 
8:G0T019 

7)3 IFF (6) =1THENIF0 (3 ) =)3ANDF (4 ) =)3 
THENW$="'MY FRIENDS, I HAVE COM 
E HERE TO TELL YOU THAT YOU CAN 
LEAVE IF YOU COME WITH ME TO IND 
IA. I NEED YOU AND FERDINAND AND 
ISABELLA HAVE SAID THAT YOU CAN 
BE FREE AFTER THE VOYAGE. IF YO 
U WANT TO GO WITH ME, THEN 
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71 IFF(6)=1THENIF0(3)=0ANDF(4)=0 
THENW$=W$+" SAY YES. "'ELSEW$="'M 
IS AMIGOS, HE VENIDO AQUI PARA D 
ECIRLES QUE UDS. PUEDEN IRSE SI 
UDS VIENEN CONMIGO A LA INDIA. Y 
O LES NECESITO Y FERNANDO Y ISAB 
ELA HAN DICHO QUE UDS. PUEDEN SE 
R LIBRES DESPUES DEL VIAJE. 

72 IFF(6)=1 AND(0(3)O0 0RF(4)=1 
)THENW$=W$+ M SI UDS. QUIEREN IR 
CONMIGO, ENTONCES DIGAN QUE SI.' 

ii 

73 IFF(6)=1 THENGOSUB178:F(6)=2: 
GOTO19 

74 W$= M YOU HEAR NOTHING UNUSUAL. 
":G0SUB17 8:G0T019 

75 IFO(3)=0 THENW$="TRANSLATION 
IS DONE AUTOMATICALLY BY YOUR WA 
TCH. (IT IS A WONDERFUL DIGITAL 
WATCH, ISN'T IT?)":G0SUB178:GOTO 
19 

76 W$="YOU NEED YOUR WATCH TO TR 
ANSLATE. WHY DID YOU KEEP IT IN 
THE OPEN LIKE THAT?":GOSUB178:GO 
TO 19 

77 IFNN$="1!!"THEN9 

78 IFO (NN) O0ANDO (NN) OR THENW$= 
"I CANNOT LOOK AT THAT!":G0SUB17 
8:G0T019 

79 IFNN=1THENIFF(1)=0 THENW$="WH 
ILE EXAMINING THE BOOKCASE, YOU 
NOTICE TWO INTERESTING VOLUMES." 

:G0SUB178:F(1)=1:0(2)=R:0(4)=R:G 
0T019 ELSEW$="IT IS JUST A NICE, 

OLD, BROWN BOOKCASE. (NO PASSAG 
ES BEHIND IT THOUGH)GOSUB178: 
GOTO19 

80 IFNN=2THENW$="YOU OPENED THE 
DIARY AND SKIMMED UNTIL YOU FOUN 

D THE LAST ENTRY. NOV 6,28 

79. I HAVE FINALLY TESTED MY TIM 
E MACHINE. I WENT BACK IN TIME T 
O THE DINOSAUR AGE. BUT WAIT! NO 
! THAT CAN'T BE! MY CALCULATIONS 

TELL " 

81 IFNN=2THENW1$="ME THAT I HAVE 
A DESIGN FLAW. THEY SHOW THAT T 

HE LAW OF INFINITE ENTROPY OR TI 
ME DISORDER WILL, AT MIDNIGHT, D 
ESTROY THE UNIVERSE, BOTH PAST A 
ND PRESENT... I SEE THAT MY DEVI 
CE CHANGED THREE EVENTS IN HISTO 
RY. I MUST FIX THEM..." 

82 IFNN=2THENGOSUB178:G0T019 

83 IFNN=3THENW$="THE WATCH HAS T 
WO FUNCTIONS. FIRST IT TELLS THE 


TIME BASED ON YOUR BIRTHDATE, A 
ND THE DATE BASED ON THE TIME YO 
U ARE IN. SECONDLY, IT IS THE LA 
TEST IN THE BRAND OF UNIVERSAL T 
RANSLATORS.":GOSUB178:G0T019 

84 IFNN=4THENW$="THIS LARGE BOOK 
CONTAINS MANY HISTORICAL DETAIL 

S... YOU SEE NOTHING IMPORTANT E 
XCEPT THAT IT IS WELL WRITTEN WI 
TH GOOD ILLUSTRATIONS AND MAPS." 
:GOSUB178:GOTO19 

85 IFNN=5THENW$="YOUR TIME MACHI 
NE IS VERY SMALL, ABOUT THE SIZE 

OF A WATCH. IT HAS FOUR BUTTONS 
, EACH PRESET TO A DIFFERNT TIME 
/SPACE FRAME. THE BUTTONS ARE OF 
FOUR COLORS, WHITE, BLACK, BLUE 
, AND RED.":GOSUB178:G0T019 

86 IFNN=6THENW$="THE PAINTINGS A 
RE OF THE GREAT PAST PRESIDENTS. 

..GEORGE WASHINGTON...ABE LINCOL 
N...AND JOAN WALTERS, THE FIRST 
WOMAN PRESIDENT.":G0SUB178:G0T01 
9 

87 IF(NN $ = "GAR"ORNN$="CAN'')ANDR= 
18AND0(14)=-lTHENW$="RUMMAGING I 
N THE GARBAGE IS NOT WHAT I WOUL 
D CALL AN ADVENTURE . . . BUT YOU H 
APPENED TO FIND A LOADED GUN.":G 
OSUB178:0(14)=R:G0T019 

88 IF(NN $ = "GAR"ORNN $ = "CAN")ANDR= 
18THENW$="IT LOOKS LIKE GARBAGE. 

.. IT TASTES LIKE GARBAGE... IT 
IS GARBAGE!!! WHAT A REVELATION! 

! !":G0SUB17 8:G0T019 

89 ON RND(2)G0T090,91 

90 W$="I SEE NOTHING UNUSUAL.":G 
0SUB17 8:G0T019 

91 W$="LOOK'S OK TO ME.":G0SUB17 
8:G0T019 

92 IFO (5)00 ORF ( 4 ) =1 THENW$="I 
SEE NOTHING TO PUSH.":GOSUB178:G 
0T019 ELSEIFNN$="BUT"ORNN$="TIM" 
ORNN$="MAC"THENW$="PLEASE GIVE T 
HE COLOR OF THE BUTTON IN YOUR C 
OMMAND (FOR EX. PUSH RED).":GOSU 
B178:G0T019 

93 OP=PU:IFNN$="WHI"THENPU=0:DT$ 
="NOV 6,2879":G0T098 

94 IFNN$="BLA"THENPU=1:DT$="AUG 
3,1492":G0T098 

95 IFNN$="BLU"THENPU=2:DT$="APR 
3 0,1945":GOTO 9 8 

96 IFNN$="RED"THENPU=3:DT$="MAY 
11,2024":G0T09 8 

97 W$="I DON'T SEE THAT BUTTON H 
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ERE.":G0SUB178:G0T019 

98 W$="OK, YOU PUSHED THE BUTTON 
. THE ROOM IS CHANGING COLOR. YO 
U ARE LOSING CONSCIOUSNESS. YOU 
FEEL LIKE YOU ARE DRUNK.GOSU 
B17 8:F0RI=1T08:GOSUB165:FORJ=lTO 
2/3/3 : NEXTJ: EXEC: NEXTI 

99 T(OP)=R:R=T(PU):OP=PU:G0T09 
1/3/3 GA=/3 : IFNN$=" ! ! ! "THENW$="WHAT 

DO YOU WANT ME TO GET ?":GOSUBl 
78:G0T019 

1/31 IFNN$="ALL"ORNN$="EVE"THENl/3 
6ELSEIFNN$="INV"ORNN$="I!!"THEN1 
57ELSEIFNN=0THEN2/3/3 
1/32 IFO (NN) OR THENW$="THAT OBJE 
CT IS NOT HERE. IT MAY OR MAY NO 
T BE SOMEWHERE ELSE IN THE FUTUR 
E (PAST?).":G0SUB178:G0T019 
1/33 G0SUB1/38:IFNN=70RNN=8 THENR= 
1/3: W$="YOU TOOK THE "+OI$(NN)+" 
WITHOUT PAYING FOR IT. YOU HEAR 
SEVERAL CRIES IN THE MARKET. SUD 
DENLY, SOME BIG GUARDS DRAG YOU 
AWAY TO PRISON. ":G0T02/37 ELSEIFN 
N=10RNN=60RNN=1/30R0I$ (NN) =" "THEN 
I FGA=1THEN 1/37ELSE2/3/3 
1/34 IFCA=5 THENW$="YOU ARE CARRY 
ING TOO MUCH. WHY DON'T YOU TAKE 
INVENTORY AND DROP SOMETHING ?" 
:GOSUB178:G0T019 ELSEIFGA=1 THEN 
O (NN) =/3 : CA=CA+1: GOTOl/37 
1/35 W$="OK, IT'S YOURSGOSUB17 
8: CA=CA+1:0 (NN) =/3: G0T019 
1/36 GA=1: FORI=lTOZO: IFO (I) =R THE 
NNN$=MID$(NL$,(1-1)*3+1,3):NN=I: 
GOTOl/33 

1/37 NEXTI :W$="OK, YOU GOT IT ALL 
.":GOSUB178:G0T019 
1/38 IF (NN=250RNN=24) ANDR=29THENW 
$="YOU TRIED TO' TAKE IT WITHOUT 
PAYING FOR IT. THE OWNER SAW YOU 
, CALLED THE POLICE, AND HELD YO 
U UNTIL THEY CAME. WHEN YOU FINA 
LLY GOT TO THE POLICE STATION, I 
T WAS TOO LATE!":GOSUB178:GOSUB2 
4 6:0(3)=-1:G0T02 3 2 
1/39 RETURN 
11/3 GOTOl/33 

111 IFNN$="UNI"ANDO(22)=0 THENF( 
9)=1:W$="OK, YOU ARE NOW WEARING 

THE NAZI UNIFORM.":GOSUB178: 01$ 
(22)="UNIFORM (WHICH I AM WEARIN 
G) ":G0T019 

112 W$="I CANNOT WEAR THAT!":GOS 
UB17 8:G0T019 

113 IFNN$0"TIM"ANDNN$0"MAC"AND 


NN$0"WAT"ANDNN$0"TRA"THENW$="Y 
OU CANNOT HIDE IT!":GOSUB178:GOT 
019 

114 PRINT"IN WHERE ? "?:WW$="IN 
WHERE ? ":G0SUB211:IFLEFT$(IN$+" 

! ! ! ",3)="SHO"THEN W$="SINCE THER 
E WAS SO MUCH ROOM IN THERE YOU 
DECIDED TO HIDE BOTH YOUR TIME M 
ACHINE AND WATCH IN YOUR SHOE.": 
G0SUB17 8:G0T0116 

115 W$="I'M NOT REALLY SURE IT W 
ILL DO ANY GOOD HIDING IT THERE. 
":G0SUB17 8:G0T019 

116 F(4)=1:01$(3)="WATCH (HIDDEN 
IN SHOE)":0I$(5)="TIME MACHINE 

(HIDDEN IN SHOE)":G0T019 

117 IF(NN$="MON"ORNN$="CHE"ORNN$ 
="TRE")ANDO(12)=/3ANDR=27THENW$=" 
JOAN WALTERS SEES YOUR GIFT AND 
CRIES 'WE CAN FINISH THE CAMPAIG 
N THANKS TO YOU! YOU CAN HAVE AN 
YTHING YOU WANT, JUST NAME IT!' 
YOU HUMBLY SAY THAT IT'S JUST YO 
UR JOB.":GOSUB178:FX=3 

118 IFFX=3 THENF(15)=-l:G0T0229 
ELSE2/3/3 

119 G0T019 

12/3 IF (NN$="BAR"ORNN$="CAN"ORNN$ 
="HER")ANDO(23)=/3ANDR=29THENW$=" 
THE DRUGSTORE OWNER TOOK THE MON 
EY AND GAVE YOU THE BAR WITH NO 
CHANGE (INFLATION!).":O(24)=/3 : O( 
2 3)=-l:G0SUB17 8:G0T019 

121 IF(NN$="PIL"ORNN$="SLE"ORNN$ 
="BOX") ANDR=29 ANDO (23) =/3THENW$=" 
THE DRUGSTORE OWNER SAID THAT TH 
E PILLS COST MORE THAN A DOLLAR. 

FORTUNATELY, HE WAS NICE AND GA 
VE THEM TO YOU ANYWAY.":G0SUB178 
:0(25)=/3:0(2 3)=-l:G0T019 

122 IFO(23) 0/3 THENW$="YOU DON'T 
HAVE THE PROPER CURRENCY! HOW D 

O YOU EXPECT TO BUY SOMETHING?": 
G0SUB17 8:G0T019 

123 G0T02/3/3 

124 W$="YOU HAVE NOTHING WORTH S 
ELLING.":G0SUB17 8:G0T019 

125 IFNN$="GUN"ANDO(14 )=0 ANDR=2 
4AND0(21)=R THEN127 

126 IFNN$="PIL"ANDO(25)=p ANDR=1 
5THEN13/3ELSE2/3/3 

127 PRINT"IN WHERE ? "?:WW$="IN 

WHERE ? ":G0SUB211:IN$=LEFT$(IN$ 
+" ",3):IFIN$="HIT"ORIN$="HAN" 

THEN128 ELSE126 

128 W$="YOU PUT THE GUN IN HITLE 
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R'S HAND. IT MAKES IT LOOK LIKE 
SUICIDE.":G0SUB178:0(21)=-l:0(15 
)=R:O(14)=-l:F(14)=-l:FX=2:CA=CA 
-1:G0T0229 

129 GOTO19 

130 PRINT "IN WHERE ? ";:WW$="IN 

WHERE ? 11 : GOSUB211: IN$=LEFT$ (IN$ 
+" ",3):IFIN$="WIN"ORIN$="JUG" 

ORIN$="DRI"THEN131ELSE200 

131 CA=CA-1:0(25)=-l:W$="YOU PUT 
THE PILL IN HIS DRINK WHILE HE 

WASN'T LOOKING. WHEN HE TOOK A S 
IP HE SMILED, YAWNED, AND SLEPT 
LIKE A BABY.":G0SUB17 8:MID$(NL$, 
34,3)="TRE":0L$(9)="A SLEEPING G 
UARD IS HERE . " : 0L$ (1)3) ="THE SPIK 
ED WINE IS HERE.":GOTO19 

132 IFR=1THENW$="R.I.F.":G0SUB17 
8:G0T019 

133 IFR=70RR=8 THENW$="MAXWELL S 
MART'S PHONE ... HIDING PLACE... 

":G0SUB17 8:G0T019 

134 IFR=10THENW$="DON'T GIVE UP 
HOPE... YOU MIGHT GET VISITORS." 

:GOSUB178:G0T019 

135 IFR=24THENW$="HITLER DIDN'T 
REALLY DIE OF POISON... BUT IT W 
AS 'SUICIDE'. EVA FOUND THE BODY 

AND SHE TOOK POISONG0SUB178: 
G0T019 

136 W$="TRY COMMANDS LIKE GO NOR 
TH, N, GET, SCORE, SAVE, AND LOA 
D. ENTER ALL COMMANDS IN A VERB/ 
NOUN FORMAT UNLESS ASKED SOMETHI 
NG LIKE 'WITH WHAT?', WHICH REQU 
IRES A NOUN ONLY. OTHER COMMANDS 

ARE THERE FOR YOU TO FIND. GOOD 
LUCK!":GOSUB178:G0T019 

137 W$="YOU HAVE CHANGED ":CG=AB 
S(F(13)+F(14)+F(15)):ON CG+1 GOT 
0138,139,14)3,141 

138 W$=W$+"NO":G0T0142 

139 W$=W$+"ONE":G0T0142 

140 W$=W$+"TWO":G0T0142 

141 W$=W$+"THREE":G0T0142 

142 IFCG=1 THENW$=W$+" EVENT"ELS 
EW$=W$+" EVENTS" 

143 W$=W$+" OUT OF THREE. YOU NE 
ED TO FIX ALL THREE TO SAVE THE 
UNIVERSE FROM THE LAW OF INFINIT 
E ENTROPY.":G0SUB178:G0T019 

144 TM=TIMER: IFPEEK(&HC000)=68TH 
ENDV=1:DV$="DISK"ELSEDV=-1:DV$=" 
TAPE" 

145 W$="INSERT "+DV$:GOSUB178:GO 
SUB24 6:PRINT0480, ;:W$="LOADING.. 


.":DV$="SAVE":IFDV=1THENDV$=DV$+ 
"/TIM":GOSUB178 

146 OPEN"I",#DV,DV$:INPUT#DV,R:I 
NPUT#DV,CA:F0RI=1T0Z0:INPUT#DV,0 
(I):NEXTI:F0RI=1T015:INPUT#DV,F( 
I):NEXTI:FORI=0TO3:INPUT#DV,T(I) 

:NEXTI:INPUT#DV,TM:INPUT# DV,TI:T 
1=INT(TI/60):T2=TI-60*T1:INPUT#D 
V,NL$:INPUT # DV,01$(3) :INPUT # DV,0 
1$(5):INPUT#DV,01$(22) 

147 INPUT#DV,0L$(9):INPUT#DV,OL$ 
(10):INPUT#DV,DT$:INPUT#DV,OP:IN 
PUT # DV,PU:INPUT #DV,R$(14):INPUT# 
DV, CJ:CLOSE#DV:TIMER=TM:G0T09 

148 IFPEEK(&HC000)=68 THENDV=1:D 
V$="DISK"ELSEDV=-1:DV$="TAPE" 

149 W$="INSERT "+DV$:GOSUB178:GO 
SUB246:PRINT0480,;:W$="SAVING... 
":DV$="SAVE":IFDV=1THENDV$=DV$+" 
/TIM":G0SUB178 

150 0PEN"0",#DV,DV$:IFDV=-1THEN1 
52ELSEWRITE# DV,R:WRITE # DV,CA:FOR 
I=1T0Z0:WRITE#DV,0(1):NEXTI:FORI 
=1T015:WRITE#DV,F(I):NEXTI:FORI= 
0TO3:WRITE#DV,T(I) :NEXTI:WRITE #D 
V,TM:WRITE#DV,Tl*60+T2:WRITE#DV, 
NL$:WRITE#DV,01$(3):WRITE#DV,OI$ 
(5) 

151 WRITE#DV,OI$(22):WRITE#DV,OL 
$(9):WRITE#DV,OL$(10):WRITE#DV,D 
T$:WRITE #DV,OP:WRITE#DV,PU:WRITE 
#DV,R$(14):WRITE# DV,CJ:CLOSE#DV: 
TIMER=TM:GOTO19 

152 PRINT#-1,R:PRINT#-1,CA:FORI= 
1T0Z0:PRINT#-1,0(1):NEXTI:F0RI=1 
T015:PRINT #-1,F(I) :NEXTI:FORI=0T 
03:PRINT #-l,T(I):NEXTI:PRINT # DV, 
TM:PRINT #DV,T1* 60+T2:PRINT # DV,NL 
$:PRINT#DV,01$(3):PRINT#DV,OI$(5 
):PRINT # DV,01$(2 2) :PRINT#DV,0L$( 
9):PRINT#DV,OL$(10) 

153 PRINT#DV,DT$:PRINT#DV,OP:PRI 
NT#DV,PU:PRINT#DV,R$(14):PRINT#D 
V,CJ:CLOSE#-l:TIMER=TM:GOTO19 

154 IF(NN=30RNN=5)ANDF(4)=1THENW 
$="YOU DECIDED TO REMOVE BOTH YO 
UR WATCH AND TIME MACHINE FROM Y 
OUR SHOE SO YOU COULD USE THEM." 
:01$(3)="WATCH":01$(5)="TIME MAC 
HINE":F(4)=0:GOSUB178:G0T019 

155 IF(NN$="UNI"ORNN$="CLO")ANDO 

(17) =R THENW$="OK, YOU REMOVED H 
IS UNIFORM.":GOSUB178:0(17)=-l:0 

(18) =16:0(22)=16:G0T019 

156 GOTO200 

157 IFCA=0 THEN159 ELSEW$="YOU A 
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RE CARRYING THE FOLLOWING IN ADD 
ITION TO YOUR SHIRT, PANTS, AND 
SHOES: " : FORI=lTOZO: IFO (I) =J3THENW 
$=W$+OI$(I)+", " 

158 NEXTI:MID$(W$,LEN(W$)-1,2)=" 

. ":GOSUB17 8:G0T019 

159 W$="YOU ARE CARRYING NOTHING 
IN ADDITION TO YOUR SHIRT, PANT 

S, AND SHOES.":GOSUB17 8:G0T019 

16)3 IFNN$="ALL"ORNN$="EVE"THEN16 
3 

161 IF NN=)3 ORO (NN) 0)3 THEN W$=" 
HOW CAN I DROP IT IF I'M NOT EVE 
N CARRYING IT ?":GOSUB178:G0T019 

162 IFNN=30RNN=5THENW$="I DON'T 
THINK YOU SHOULD DROP IT. IT IS 
VERY IMPORTANT.":G0SUB178:G0T019 

ELSEW$="OK, I DROPPED IT HERE." 
:G0SUB178:0(NN)=R:CA=CA-1: G0T019 

163 W$="OK, I DROPPED IT ALL.":F 
0RI=1T0Z0: IFO (I) =J3 ANDI<>3 ANDI< 
>5 THENO(I)=R:CA=CA-1 


164 NEXTI:G0SUB17 8:G0T019 

165 1 



166 IFTP$="AM"THENRETURN ELSETM= 
TIMER: TIMERS : 01=PEEK (136): 02=PE 
EK(137) 

167 SEC=SEC+(TM/6)3) *RI 

168 IFSEC>=6)3 THENSEC=SEC-6)3:T2= 
T2+1 

169 IFCH$=" "THENCH$=":"ELSECH$= 
ii ii 

17)3 IFT2=6)3THENT1=T1+1:T2=)3:IFT1 
=12THENIFTP$="AM"THENTP$="PM"ELS 
ETP$="AM":G0T02 3 2 

171 IFT1=13THENT1=1 

172 T1$=RIGHT$(STR$(T1),2):T2$=R 
IGHT$(STR$(T2),2):IFLEFT$(T2$,1) 
=" "THENMID$(T2$,1,1)=")3" 

173 IF 0(3) =J3 ANDF (4 )=)3 THENPRIN 
T@24,T1$;CH$;T2$;" ";TP$; ELSEPR 
INT024,STRINGS(8,32); 

174 POKE136,01:POKE137,02:RETURN 

175 1 

176 IFF(12)=-lTHENPRINT#-2,RS$(R 


);TAB(11);DT$;TAB(23);T1$;":";T2 

$ 

177 01=PEEK(136):02=PEEK(137):PR 
INT@)3, STRINGS (23,32) ; : PRINT@)3, RS 
$(R);:PRINT@11,DT$" ";:P0KE136,0 
1:P0KE137,02:RETURN 

178 ' 

179 SC=)3 

18) 3 ST=1: G0T0187 

181 V$=MID$(W$,ST,32):GOSUB166 

182 F0RX=ST+31 TO ST+1 STEP-1:IF 
MID$(V$,X-ST,1)<>" "THENNEXT 

183 SC=SC+1:V$=LEFT$(V$,X-ST-1): 
GOSUB189 

184 ST=X 

185 IFSC=14THENG0SUB 246:SC=)3:PR 
INT@48)3,STRINGS(30,32);:P0KE13 6, 
5:POKE137,224 

186 IFST=LEN(W$)THENIF W1$=""THE 

NRETURN ...G0T018 

0 

187 IFST+31>LEN(W$)THENIF Wl$="" 
THENV$=MID$(W$,ST):GOSUB189:RET 

URN ELSEW1$=MID$(W$,ST)+W1$:W$=W 
1$:W1$="":GOTO180 

188 G0T0181 

189 ' 

19) 3 IFF(12)=-1 THENPRINT#-2,V$ 

191 X$=V$ 

192 IFLEN(X$)>=32 THEN193 ELSEX$ 
=X$+STRING$(32-LEN(X$),32) 

193 PRINTLEFTS(X$,31); 

194 P1=PEEK(136):P2=PEEK(137):P3 
=P1*256+P2 

195 P4=ASC(RIGHTS(X$,1)):IFP4<64 
THENP4 =P 4+6 4 

196 P0KEP3,P4:IF P3=1535 THEN 19 
9 

197 P3=P3+1:P0KE136,P3/256:P0KE1 
37,P3-256*PEEK(136) 

198 RETURN 

199 EXEC:POKE136,5:POKE137,224:R 
ETURN 

2)3)3 0NRND(3)G0T02)31,2)32,2)33 
2)31 W$="SURELY YOU JEST. I CANNO 
T" : GOTO 2)3 4 

2)32 W$="HOW IN THE WORLD DO YOU 
THINK I CAN":GOTO2)34 
2)33 W$="I CAN'T" 

2)34 W$=W$+" "+CHR$ (3 4) +CM$+CHR$ ( 
34) + ". YOU MUST BE CRAZY Ill":GOS 
UB178:G0T019 
2)35 ' 

206 READ A$:IFA$o"end"THEN206 E 
LSEFORX=3274)3 TO 32740+25:READA$ 
:POKEX,VAL("&H"+A$):NEXTX:POKE15 
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7,32740/256:POKE158,32740-256*PE 
EK(157):RETURN 

207 W$=W$+" ":F(10)=F(10)+1:IFF( 
10) =2THEN210ELSEW$=W$+"WHEN YOU 
ARRIVE IN PRISON THEY FRISK YOUR 

PANTS AND SHIRT AND " 

208 IFF(4)=1THENW1$="FIND NOTHIN 
G OF INTEREST TO THEM."ELSEW1$=" 
FIND YOUR TIME MACHINE AND WATCH 
. THEY FIND THEM VERY INTERESTIN 
G AND DECIDE TO KEEP THEM.":0(3) 
=-5:O(5)=-5 

209 W1$=W1$+" THEN THEY OPEN THE 
CELL AND THROW YOU IN ON YOUR F 

ACE.":F(5)=Tl*60+T2+2:GOSUB178:G 
0T019 

210 W$=W$+"SINCE THIS IS YOUR SE 
COND OFFENSE THE GUARDS DECIDE T 
O 'CORRECT' YOU. THEY TAKE YOU I 
NTO ":W1$="A ROOM WHICH APPEARS 
TO BE AN ANCIENT TORTURE CHAMBER 
. YOU DON'T LIVE THROUGH THE QUE 
STIONING.":GOSUB178:G0T02 3 3 

211 ' 

212 IN$=INKEY$:IN$="" 

213 P1=PEEK(136)*256+PEEK(137) 

214 POKEP1/175 

215 POKE282, 255:Q9=Q9+1:IFQ9<25 
THENA$=INKEY$:IFA$=""THEN 215 EL 
SE216 ELSE GOSUB166:Q9=0:G0T0215 

216 IFKQ=1THENIFA$="Y"THENCLEAR: 
RUN ELSECLS:END 

217 IFQU=1THENIFA$="Y"THENCLS:EN 
D ELSEA$=CHR$(13):QU=0 

218 IFA$>="A"ANDA$<="Z"THEN223 

219 IFA$=CHR$(12)ORA$=CHR$(21)TH 
EN 228 

220 IFA$=CHR$(13)THENIFF(12)=-lT 
HENPRINT#-2,WW$+IN$:G0T0224 ELSE 
224 

221 IFA$=CHR$(8)THEN2 2 5 

222 IFA$<" "ORA$>"Z"THEN215 

223 IFLEN(IN$)<23 THENPRINTA$ ?:I 
N$=IN$+A$:G0T0213 ELSE215 

224 POKEP1,96:IF Pl>=1504 THEN E 
XEC:POKE136,5:POKE137,224:RETURN 

ELSEPRINT:RETURN 

225 IFIN$=""THEN215 

226 IN$=LEFT$(IN$,LEN(IN$)-1) 

227 POKEP1,96:PRINTCHR$(8)?:POKE 
136,(Pl-l)/256:POKE137,(Pl-l)-25 
6*PEEK(136):GOTO213 

228 POKEP1,96:PRINTSTRING$(LEN(I 
N$),8)?:IN$="":G0T0211 

229 IFF(13)=-lANDF(14)=-lANDF(15 
)=-lTHEN230ELSEON FX GOTO60,129, 
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230 0(3)=-l:GOSUB246:PRINT00,CHR 
$(13):PRINT011,"YOU WIN":PRINT@4 
80,STRING$(30,32)?:PRINT@480,?:E 
XEC:EXEC:W$="YOU HAVE CORRECTED 
ALL THREE EVENTS THAT WERE CHANG 
ED BY YOUR TIME MACHINE. YOU SEN 
T COLUMBUS TO AMERICA, ADOLF HIT 
LER COMMITED SUICIDE," 

231 Wl$=" AND YOU HELPED GET THE 
FIRST WOMAN PRESIDENT ELECTED. 

YOU HAVE DONE THE IMPOSSIBLE. YO 
U HAVE SAVED THE UNIVERSE AND HA 
VE COMPLETED THIS ADVENTURE.":GO 
SUB178:G0T02 3 3 

232 PRINT00,CHR$(13):PRINT@11,"Y 
OU LOSE":PRINT0480,?:F0RI=1T015: 
EXEC:NEXTI:W$="YOU HAVE RUN OUT 
OF TIME! SINCE YOU DID NOT CORRE 
CT ALL THREE EVENTS IN TIME THE 
LAW OF INFINITE ENTROPY HAS TAKE 
N EFFECT. THE UNIVERSE IS GONE!" 
:W1$="":G0SUB178 

233 EXEC:W$="DO YOU WISH TO PLAY 
AGAIN":GOSUB178:PRINT"(Y/N) ? " 

?:KQ=1:G0SUB211 

234 ' 

235 PRINT"ARE YOU SURE ? "?:QU=1 
:G0SUB211:G0T019 

236 ' 

237 IFRO10 AND T1*60+T2>F(5) TH 
ENF(5)=0 

238 IFRO10 THEN242 

239 IFF(5)=0 THEN242 

240 IF(T1*60+T2=F(5)ORT1*60+T2=F 
(5)+1)ANDF(6)=0THENW$="YOU SEE A 

STRANGE LOOKING MAN ENTER THE C 
ELL ON HIS OWN. HE STARTS TALKIN 
G. ":F(6)=1:GOSUB178:F(5)=F(5)+2: 
RETURN 

241 IFF(6)>0 ANDT1*60+T2>=F(5) T 
HENW$="THE STRANGE MAN LEFT WITH 

SOME OF THE MEN.":G0SUB17 8:F(6) 
=0:F(5)=0:RETURN 

242 IFR=16ANDF(8)=0 ANDO(20)<>-1 
THENF(8)=1:RETURN 

243 IFR=16ANDF(8)=1 THENW$="A SO 
LDIER TURNS THE CORNER AND FINDS 

YOU STANDING BY THE TREE. YOU H 
EAR THE COCKING OF HIS PISTOL... 
":G0SUB178:G0T0233 

244 IFR016 THENF ( 8 ) =0 

245 RETURN 

246 A$=INKEY$:PRINT0483,"PRESS A 
NY KEY TO CONTINUE"? 

247 IFINKEY$ = ""THENIFSCO0 THENG 
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OSUB166:GOTO247 ELSE247 ELSERETU 
RN 

248 DATA"YOU ARE IN YOUR COMPLEX 
HIGH TECH LABORATORY. A CALENDA 

R ON THE WALL READS NOVEMBER 6, 
2879. YOU SEE NO AVAILABLE EXITS 
.","LAB H /P,P,P,P,P/P 

249 DATA"YOU ARE ON A STREET IN 
PALOS, SPAIN. YOU CAN SMELL THE 
GOODS OF MANY MERCHANTS A FEW BL 
OCRS AWAY. YOU CAN GO EAST AND S 
OUTH, AND AN ALLEY IS TO THE NOR 

TH. ",STREET,3,6,4,P,P,P 

25p DATA"YOU ARE IN AN ALLEY. TH 
E FILTH OF THE WORLD IS HERE. MA 
NY PEOPLE ARE STARING AT YOU AND 
YOUR CLOTHES. WHILE LOOKING UP 
YOU CAN SEE THE OCEAN. THE SUN I 
S SETTING OVER A BEAUTIFUL HORIZ 
ON. YOU CAN LEAVE ONLY BY GOING 
SOUTH. 

251 DATA"ALLEY",p,2,p,p,p,p 

252 DATA "YOU ARE ON A STREET IN 
SPAIN. YOU SEE NOTHING REMOTELY 
UNUSUAL. HOWEVER, YOU CAN SMELL 
THE OCEAN COMING FROM THE NORTH. 

THERE ARE PATHS TO THE EAST AND 
WEST, ALSO.",STREET,11,p,5,2,p, 

0 

253 DATA"YOU ARE ON A VERY PRIMA 
TIVE DIRT PATH. THE ROAD IS HORR 
IBLE. IT LEADS TO THE EAST AS FA 
R AS YOU CAN SEE AND IT IS USELE 

SS. YOU CAN GO WEST BACK TO THE 
STREET.",PATH,p,p,5,4,p,p 

254 DATA"YOU ARE ON STREET IN SP 
AIN. YOU SEE THE PRISON TO THE W 
EST. YOU HEAR THE CRIES OF MERCH 
ANTS TO THE SOUTH AND EAST. THE 
PRISON LOOKS HORRIBLE AND YOU HE 
AR THE SOUNDS OF THE TORTURED IN 
SIDE. THE STREET ALSO GOES TO TH 
E NORTH. 

255 DATA"STREET",2,8,7,p,p,p 

256 DATA"YOU ARE IN A FISH MARKE 



NLY EXIT IS TO THE NORTH BACK TO 
THE STREET.",MARKET,6,p,p,p,p,p 

258 DATA"YOU ARE ON A LONELY DIR 
T PATH THAT GOES ON FOREVER. YOU 

MAY GO BACK NORTH OR CONTINUE ( 
WHY?) SOUTH.",PATH,7,9,p,p,p,p 

259 DATA"YOU ARE IN PRISON. YOU 
SEE THE SCUM OF THE EARTH IN HER 
E. YOU FEEL NO HOPE WHEN YOU LOO 
K AT THE GUARDS. THEY ARE READY 
TO KILL YOU ON SIGHT.",JAIL,p,p, 

P/P/P/P 

26p DATA"YOU ARE ON A DOCK. THE 
SWEET SMELL OF THE OCEAN IS HERE 
. THE DOCK CONTINUES NORTH AND G 
OES BACK SOUTH.",DOCK,12,4,p,p,p 

261 DATA"YOU ARE ON A DOCK FACIN 
G A SHIP. YOU SEE IN BOLD LETTER 
S THE WORDS 'SANTA MARIA'. THE S 
HIP IS TO THE EAST. YOU MAY ALSO 

GO BACK SOUTH.",DOCK,p,11,13,p, 

P/J 3 

262 DATA"YOU ARE ABOARD THE 'SAN 


T. THE SMELL OF THE FISH IS UNBE 
LIEVABLY STRONG. THE CRIES OF TH 
E MERCHANTS FILL THE AIR. YOU CA 
N GO SOUTH TO A DIRT PATH OR WES 
T BACK TO THE STREET.",MARKET,p, 
9/P/6,p,p 

257 DATA"YOU ARE IN A FRUIT MARK 
ET. THE FRUIT LOOKS DELICIOUS. I 
N ADDITION TO THE FRUIT YOU SEE 
SOME VENDORS SELLING ALL SORTS O 
F THINGS FROM THE INDIES. YOUR O 


TA MARIA.' THE DECK BENEATH YOU 
ROCKS BACK AND FORTH WITH THE PA 
SSING WAVES. THE SHIP IS FILLED 
WITH THE SOUNDS OF THE CREW PREP 
ARING FOR THE LONG VOYAGE AHEAD. 

YOU SEE THE NAVIGATOR TO THE EA 
ST AND A DOWNWARD LADDER. 

263 DATADECK,p,P/14,p,p,15 

264 DATA"YOU ARE IN FRONT OF THE 
NAVIGATOR. HIS MOST PROMINENT F 

EATURE IS HIS RUGGED BEARD. HE A 
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PPEARS BUSY PREPARING THE COURSE 
FOR THE VOYAGE TO INDIA. YOU NO 
TICE THE COURSE INDICATES THAT T 
HEY WILL GET TO INDIA. YOU MAY O 
NLY GO BACK WEST." 

265 DATANAVIGATOR,0,0,0,13,0,0 

266 DATA"YOU ARE IN THE SHIP'S G 
ALLEY. THIS IS WHERE MOST SUPPLI 

ES, EXCLUDING FOOD, ARE KEPT. TH 
E LADDER LEADS BACK UP.",GALLEY, 
0,0,0,0,13,0 

267 7 DATA"YOU ARE ON A PAVED STRE 
ET IN WARTIME GERMANY. YOU HEAR 
EXPLOSIONS GETTING CLOSER AND CL 
OSER. THE STREET CONTINUES TO TH 
E NORTH AND SOUTH. THERE IS A RO 
AD TO THE EAST AS WELL. LOOKING 
UP YOU SEE A TREE." 

268 DATA"STREET",17,18,19,0,25,0 

269 DATA"YOU ARE ON A DIRTY STRE 

ET. THE STREET IS DESOLATE AND T 
HE ONLY SOUNDS ARE THAT OF THE B 
OOTS OF THE SOLDIERS SLOSHING IN 

THE PUDDLES. THE ROAD GOES BACK 
SOUTH.", STREET,0,16,0,0,0,0 

270 DATA"YOU ARE IN A DEAD END. 
YOU SEE PROPAGANDA POSTERS OF HI 
TLER ALL OVER THE WALLS, SOME OF 

WHICH ARE DEFACED. GARBAGE CANS 
OCCUPY THE ALLEY AS WELL. YOU C 
AN LEAVE THE WAY YOU CAME.",DEAD 
END,16,0,0,0,0,0 

271 DATA"YOU ARE AT THE ENTRANCE 
TO A BUNKER. THE OPENING IS DES 

OLATE, AS IF IT IS EMPTY. YOU FE 
EL A COOL WIND GO DOWN YOUR SPIN 
E AS YOU HEAR THE COMMANDS OF TH 
E S.S. FROM WITHIN. YOU CAN ENTE 
R THE BUNKER FROM THE EAST.",ENT 
RANCE,0,0,20,16,0,0 

272 DATA"YOU ARE IN THE BUNKER'S 
HALLS. THE PASSAGES ARE VERY SI 

MILAR AND ARE DESOLATE EXCEPT FO 
R A FEW SOLDIERS SEEN FROM TIME 
TO TIME. YOU CAN GO IN ANY DIREC 
TION.",HALLS,21,21,22,19,0,0 

273 DATA"YOU ARE IN THE BUNKER'S 
HALLS. THE PASSAGES ARE VERY SI 

MILAR AND ARE DESOLATE EXCEPT FO 
R A FEW SOLDIERS SEEN FROM TIME 
TO TIME. YOU CAN GO IN ANY DIREC 
TION.",HALLS,20,20,22,22,0,0 

274 DATA"YOU ARE IN THE BUNKER'S 
HALLS. THE PASSAGES ARE VERY SI 

MILAR AND ARE DESOLATE EXCEPT FO 
R A FEW SOLDIERS SEEN FROM TIME 


TO TIME. YOU CAN GO IN ANY DIREC 
TION.",HALLS,20,23,21,21,0,0 

275 DATA"YOU ARE FACING A BROWN 
DOOR. IT HAS THE WORD 'FUHRER' N 
AILED ON IT. THE DOOR IS OPEN AN 
D THE ROOM IS TOWARD THE SOUTH. 
THE PASSAGES GO BACK TO THE NORT 
H.",DOOR,22,24,0,0,0,0 

276 DATA"YOU ARE IN HITLER'S ROO 
M. THE ROOM IS A MESS, FILLED WI 
TH MAPS,NEWSPAPERS, AND BOOZE. Y 
OU SEE A PICTURE OF EVA ON THE D 
RESSER.",HITLER,23,0,0,0,0,0 

277 DATA"YOU ARE IN A TREE. YOU 
CAN SEE THE WHOLE CITY FROM HERE 
, AND IT DOESN'T LOOK GOOD. GERM 
ANY IS LOSING THE WAR.",TREE,0,0 
/0/0/0/16 

278 DATA"YOU ARE IN FRONT OF DEM 
OCRATIC PARTY HEADQUARTERS IN NE 
W YORK. THERE ARE SIGNS, BUMPER 
STICKERS, AND BUTTONS ALL READIN 
G 'VOTE FOR WALTERS AND MAKE HIS 
TORY'. THE STREET CONTINUES EAST 

AND H.Q. IS NORTH.",NEW YORK,27 
,0,28,0,0,0 

279 DATA"YOU ARE IN DEMOCRATIC P 
ARTY HEADQUARTERS. YOU SEE PEOPL 
E RUNNING AROUND, ANSWERING TELE 
PHONES? IT IS ORDERED CHAOS. IN 
THE CENTER OF IT ALL IS JOAN WAL 
TERS. YOU CAN LEAVE TO THE SOUTH 
.","PARTY H.Q.",0,26,0,0,0,0 

280 DATA"YOU ARE IN FRONT OF A D 
RUG STORE. IN THE WINDOW YOU SEE 

TOYS, SUPPLIES, AND MEDICINES. 
THE DOOR IS TO THE NORTH. THE ST 
REET GOES BACK WEST.","STREET",2 
9,0,0,2 6, 0,0 

281 DATA"YOU ARE IN THE DRUG STO 
RE. THERE ARE MANY GOODS HERE IN 

ADDITION TO MEDICAL SUPPLIES. T 
HE OWNER IS IN THE BACK AND YOU 
CANNOT SEE HIM. YOU MAY LEAVE TO 
THE SOUTH.","STORE",0,28,0,0,0, 

0 

282 ' 

283 DATA"A BOOKSHELF RESTS ON TH 
E WALL HERE.",,BOO,l 

284 DATA"A DIARY IS ON THE FLOOR 
.",DIARY,DIA,-1 

285 DATA"A WATCH IS RESTING ON T 
HE FLOOR.",WATCH,WAT,0 

286 DATA"A HISTORY BOOK IS LYING 
HERE.",HISTORY BOOK,HIS,-l 

287 DATA"YOUR PORTABLE TIME MACH 
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INE IS HERE.", TIME MACHINE, TIM, 0 

288 DATA"YOU SEE MANY PAINTINGS 
OF FAMOUS PEOPLE ON THE WALL.",, 
PAI, 1 

289 DATA"SOME FRUIT IS HERE BEIN 
G SOLD BY VENDORS.", FRUIT,FRU,8 

290 DATA"SOME SMELLY FISH ARE HE 
RE, BEING SOLD BY VENDORS.",FISH 
,FIS,7 

291 DATA"YOU SEE A TOUGH LOOKING 
GUARD HERE.",,GUA,15 

292 DATA"A JUG OF WINE IS HERE, 
WHICH IS BEING SIPPED BY THE GUA 
RD.",WINE,WIN,15 

293 DATA"SOME RATS ARE CRAWLING 
OVER THE FLOOR. " , RATS, RAT , 10 

294 DATA"YOU SEE THE SHIP TREASU 
RY HERE.",TREASURY,,15 

295 DATA"YOU SEE CHILDREN OF ALL 
KINDS HERE, MOSTLY POOR.",,,9 

296 DATA"A LOADED GUN IS LYING O 
N THE FLOOR.",GUN,GUN,-1 

297 DATA"ADOLF HITLER IS LYING O 
N THE FLOOR, WITH BLOOD COMING O 
UT OF HIS HEAD. A GUN IS RESTING 

IN HIS HAND.",,,-l 

298 DATA"ADOLF HITLER IS HERE, G 


ETTING READY FOR AN EXILE. ALL H 
IS PERSONAL BELONGINGS ARE HERE 
AND HE IS PACKING.",,,24 

299 DATA"AN UNCONSCIOUS SOLDIER 
IS LYING HERE. HIS UNIFORM INDIC 
ATES THAT HE IS IN THE S.S.",,,- 
1 

300 DATA "AN UNCONSCIOUS SOLDIER 
IS HERE.",,,-l 

301 DATA"A SOLDIER IS MARCHING B 
ENEATH YOU.",,,25 

302 DATA"A SOLDIER IS TURNING TH 
E CORNER.",,,16 

303 DATA"ADOLF HITLER IS LYING H 
ERE, DEAD.",,,-1 

304 DATA "AN S.S. UNIFORM IS ON T 
HE FLOOR.",UNIFORM,UNI,-1 

305 DATA "A DOLLAR BILL IS LYING 
ON THE FLOOR.",DOLLAR,DOL,26 

306 DATA"A HERSHEY CHOCOLATE BAR 
IS HERE.",CHOCOLATE BAR,BAR,29 

307 DATA "YOU CAN SEE A BOX OF SL 
EEPING PILLS HERE.",SLEEPING PIL 
LS , PI L, 2 9 

308 DATA "end" , 8E, 04,40 , A6,8J3 , A7 , 
88,DF,8C,j36,j3j3,25,F6,8E,j35,Ej3,86 
, 6p,A7,8p,8C, 06,0)3,2 5, F9,39 G* 
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Program by Joab C. Jackson 



inally, after the numerous indecisive and 
struggling journeys through mind-boggling 
Adventures, a new perspective has been 
created. You no w have a vehicle with which past 
outrages, perpetrated by overzealous game 
writers can be atoned. For once, you are not the 
Adventurer, trying to avoid the obstacles and 
preserve your life. But you are the obstacle, 
determined to terminate any Adventurer brave 
enough to travel your cavern. There is a magic 
disk hidden within, and eight invaders are 
willing to risk their lives to try and retrieve it. 
You must defeat them all, one at a time. 

So, don your black hat. Practice skulking 
around, springing trap doors, living on a 
spider’s web, releasing obnoxious beasts, and 
dropping boulders onto the unsuspecting. It 
could provide a little balm for your wounds as 
you feel the satisfaction of revenge. 

Balm is a graphics pseudo-Adventure game. 
In essence, you, the player, become the Adven¬ 
ture game and must design the strategy to 



prevent eight invaders from winning. 

Upon running the program, the opening sequence will begin, followed by 
a text screen containing the names of the eight invaders. An asterisk precedes 
each invader’s name and disappears as each challenger is defeated. Enter a 
selection and you will be transferred to the playing screen. 



I BID YOU WELCOME! 

*1) 

SIR KEN. 

THE MARKSMAN 

*2] 

SIR ERIC, 

THE WHIFFER 

*3] 

SIR GREG. 

THE BOUNDLESS 


SIR JEFF, 

THE MERCIFUL 

*5] 

SIR MARK. 

THE JOYFUL 

*G] 

SIR STEVE. 

THE ANXIOUS 

*?] 

SIR GREGORY. THE GRADUAL 

*B] 

SIR RICHARD. THE PUZZLER 

NUMBER Or MORTAL WE SEEK? 


The game is played on a graphics screen depicting a cavern containing 26 
chambers. Each chamber’s location is marked on the screen by coordinates, 
represented horizontally with the letters A through E and vertically with the 
numbers 1 through 6. These coordinates are used for the placement of your 
marker. 

The game begins with your marker (X) located in the upper right-hand corner 
of the cavern, in the center of a web. The selected invader will enter on the 
right and pause in Chamber E3. The disk is located in Chamber A6 and is the 
quest of each invader. As the defender, you must defeat the invader before the 
invader reaches the disk. 



The only way you can destroy an invader is to release one of the eight traps 
graphically displayed throughout the chambers. There are trap doors in 
chambers A4 and Bl; boulders above chambers B2, C5 and D3; and deadly 
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beasts below chambers B5 and E5, and to the right of Chamber E2. 

To release a trap, you must position your marker in the appropriate chamber 
at just the right moment to catch the invader. Of course, you must first be in 
a chamber from which you can release a specific trap when the invader enters 
the chamber containing the trap. 

However, the invader can pick up defenses that will appear on the screen 
along the way: a sword, shield and staff, that will neutralize your traps. When 
in the invader’s possession, the sword will protect him from the three beasts, 
the shield from the falling boulders and the staff from the trap doors. But you 
may destroy these defenses by moving your marker into the chamber before 
it’s reached by the invader. 

A serpent is located in Chamber A6 and makes a move every time the invader 
makes a move. If it enters a chamber containing the invader, the invader will 
be destroyed and you will be given credit. If it occupies a chamber containing 
a defense, the def ense will be destroyed. But if the serpent or the invader occupies 
a chamber with your marker, you will be temporarily removed from play. The 
game will continue until either the invader reaches the disk or the serpent 
destroys the invader. 

After surveying the geography of the cavern, press any key and a text screen 
will appear and instruct you in placing your marker. You may begin the game 
in your choice of any of the 26 chambers, except A6 and E3, which are occupied 
by the serpent and invader, respectively. Enter your desired location (e.g., HI: 
horizontal letter, vertical number), and your marker will be transported to the 
specified chamber. Three indicators, representing the three moving characters, 
will then be graphically displayed at the bottom of the screen and will designate 
whose turn it is. At this point the invader will be allowed to take a move. 

When it is your turn, press any key to go to the control screen. The control 
screen lists the number of moves made in the current round and in the entire 
game, the name of the current invader and the def enses the invader has acquired. 

The following options are available from the control screen: 


A. 

View 

Allows you to study the cavern. 

B. 

Wait 

Leaves marker in its present location. 

C. 

Help 

Lists the traps and their control locations. 

D. 

Move 

Prompts you in the directions in which you can move. 

E. 

Quit 

Exits the game. 

F. 

Trap 

Activates traps. 
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From here, select the Help option and a text screen will display the various 
control locations in which your marker must be placed in order to open trap 
doors, drop boulders and release beasts to destroy the invader. 



For example: In order to drop the boulder located in Chamber B2, your marker 
must be placed in Chamber Bl. However, the invader must occupy Chamber 
B2 or dropping the boulder will have no effect. 

After planning your strategy, press any key to return to the control screen. 
Select the Move option and the available directions will be displayed (N, NE, 
E, SE, S, SW, W or NW). A direction may then be selected and your marker 
will move one chamber in the specified direction. The serpent and invader will 
then be allowed to make their moves. 

The round will continue until you or the serpent defeat the invader or the 
invader reaches the disk. If you defeat the invader, you will then be sent back 
to select another invader and play will continue. If any of the invaders are able 
to obtain the goal, you will lose the game. 

Keep in mind, each invader has his own particular course of action, with 
just enough variations to keep you off balance. The serpent and the invader 
are not necessarily restricted to one move per turn. This is a random function 
and is not predictable. As you play, you will learn more about the natural laws 
of the cavern. 


Joab Jackson is a horseman on the Maryland racing circuit. He enjoys 
hiking, bird watching and computers . Questions or comments may be 
addressed to Joab at 49 Wyegate Ct., Owings Mills, MD 21117. Please 
enclose an SASE when requesting a reply. 
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BALM 32K ECB 


10 ' BALM 

12 1 JOAB C.JACKSON 

14 '49 WYEGATE CT. 

16 'OWINGS MILLS,MD.21117 

18 '(301) 356-6274 

20 'ADVENTURE CONTEST 1985 

22 PMODE4,1:PCLS5:COLOR0,1:Z=RND 

(-TIMER):POKE329,0:FORX=3 30TO3 3 7 

:POKEX,0:NEXT:GOTO 292 

24 FORX=1TO5000:NEXT:RETURN 

26 FORX=1TO2000:NEXT:RETURN 

28 FORX=1TO1000:NEXT:RETURN 

30 FORX=1TO600:NEXT:RETURN 

32 FORX=1TO200:NEXT:RETURN 

34 A$=INKEY$:IFA$=""THEN34ELSERE 

TURN 

36 IFP$(N)="A"THENH(N)=35:V(N)=2 
5:RETURN 

38 IFP$(N)="B"THENH(N)=75:V(N)=2 
5:RETURN 

40 IFP$(N)="C"THENH(N)=115:V(N)= 
25:RETURN 

42 IFP$(N)="D"THENH(N)=155:V(N)= 
25:RETURN 

44 IFP$(N)="E"THENH(N)=195:V(N)= 
25:RETURN 

4 6 IFP$(N)="F"THENH(N)=35:V(N)=5 
5:RETURN 

48 IFP$(N)="G"THENH(N)=75:V(N)=5 
5:RETURN 

50 IFP$(N)="H"THENH(N)=115:V(N)= 
55:RETURN 

52 IFP$(N)="I"THENH(N)=155:V(N)= 

5 5:RETURN 

54 IFP$(N)="J"THENH(N)=195:V(N)= 
5 5:RETURN 

56 IFP$(N)="K"THENH(N)=35:V(N)=8 
5:RETURN 

58 IFP$(N)="L"THENH(N)=75:V(N)=8 
5:RETURN 

60 IFP$(N)="M"THENH(N)=115:V(N)= 
8 5:RETURN 

62 IFP$(N)="N"THENH(N)=155:V(N)= 
85:RETURN 

64 IFP$(N)="0"THENH(N)=195:V(N)= 
8 5:RETURN 

66 IFP$(N)="P"THENH(N)=35:V(N)=1 
15:RETURN 

68 IFP$(N)="Q"THENH(N)=75:V(N)=1 
15:RETURN 

70 IFP$(N)="R"THENH(N)=115:V(N)= 
115:RETURN 

72 IFP$(N)="S"THENH(N)=155:V(N)= 
115:RETURN 


74 IFP$(N)="T"THENH(N)=195:V(N)= 
115:RETURN 

76 IFP$(N)="U"THENH(N)=35:V(N)=1 
45:RETURN 

78 IFP$(N)="V"THENH(N)=75:V(N)=1 
45:RETURN 

80 IFP$(N)="W"THENH(N)=115:V(N)= 
145:RETURN 

82 IFP$(N)="X"THENH(N)=155:V(N)= 
145:RETURN 

84 IFP$(N)="Y"THENH(N)=195:V(N)= 
145:RETURN 

86 IFP$(N)="Z"THENH(N)=35:V(N)=1 
7 5:RETURN 
88 RETURN 

90 F0RX=3T05:IFP$(N)=P$(X)THENP$ 
(X)="" 

92 NEXT:RETURN 

94 FORX=V(N)TOV(N)+10:LINE(H(N), 
X) -(H(N)+10,X),PRESET:NEXT:RETUR 
N 

96 F0RY=1T09:LINE(H,V+Y)-(H+l0,V 
+Y),PRESET:NEXT:RETURN 
98 GOSUB28:FORX=0TO191STEP2:LINE 
(0,X)-(255,X),PRESET:NEXT:FORX=l 
91TO0STEP-2:LINE(0,X)-(255,X),PR 
ESET:NEXT:RETURN 

100 GOSUB108:PRINT"DROP:":PRINT" 


1) BOULDER(B2).FROM Bl" 

:PRINT"2) BOULDER(C5).F 


ROM C 4":PRINT"3) BOULDER(D 3)_ 

.FROM D2":PRINT 

102 PRINT"OPEN:":PRINT"1) TRAP D 

OOR(A5).FROM A6" : PRINT" 2) 

TRAP DOOR(Bl).FROM A2" 

104 PRINT:PRINT"RELEASE:":PRINT" 


1) PROCITIC (E2).FROM E3" 

:PRINT"2) TWAYBLADE(E5).F 


ROM D5":PRINT"3) DEADNETTLE(B5). 

.FROM A6":PRINT0487," PRESS 

AND RETURN ";:GOSUB34:GOTO208 
106 GOSUB98:GOSUB108:PRINT@128," 
ALL INVADERS HAVE BEEN DEFEATED! 
":PRINT@232,"TOTAL MOVES :";TC+K 
:PRINT@326,"THE GAME TERMINATES" 
:FF=1:GOSUB24:G0T0276 
108 CLS:PRINTSTRING$(32,156);:PR 
INT@480,STRING$(31,147)f:POKE153 
5,147:PRINT032,"";:RETURN 
110 GOSUB36:GOSUB94:DRAW"BM=H(N) 
;,=V(N);XQ$(N);":GOSUB30:GOSUB94 
:GOSUB90 

112 IFP$(N)=P$(1)ANDS(0)=1THENDR 
AW"BM=H(N);,=V(N);XQ$(1);"ELSEIF 
P$(N)=P$(1)THENDRAW"BM=H(N)f,=V( 
N) ;XDI$;":DI=1 
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114 RETURN 

116 F0RX=178T0181:LINE(125,X)-(1 
64,X),PSET:NEXT:RETURN 
118 FORX=1TO3:SOUND210,1:SOUND22 
0,1: S0UND2 30,1: NEXT: RETURN 
120 SCREEN1:G0SUB30 : F0RY=2 5T03 6: 
LINE (74 , Y) - (86 , Y) , PSET: GOSUB32 :N 
EXT:F0RY=36T025STEP-1:LINE(74,Y) 
-(8 6,Y),PRESET:G0SUB32:NEXT 
122 IFP$ (0)="B"THENDRAW"BM75,25 ; 
XQ$(0);":G0T0244 

124 IFP$(1)="B"ANDS(2)=0THEN262E 
LSEIFP$(1)="B"THENDRAW"BM75,2 5;X 
Q$ (1):G0T0244 

126 F0RX=3T05:IFP$(X)="B"THENP$( 
X) = "" 

128 NEXT:GOSUB30:G0T0244 
130 SCREEN1: GOSUB30: F0RY=114T012 
5: LINE (34 , Y) - (4 6, Y) , PSET: GOSUB32 
:NEXT:FORY=125T0114STEP-1:LINE(3 
4,Y)-(4 6,Y),PRESET:G0SUB32:NEXT 
132 IFP$ (J3) ="P"THENDRAW"BM35,115 
;XQ$()3) ;":G0T0244 
134 IFP$(1)="P"ANDS(2)=0THEN262E 
LSEIFP$(1)="P"THENDRAW"BM35,115; 
XQ$(1);":G0T0244 

136 F0RX=3T05:IFP$(X)="P"THENP$( 
X) =" » 

138 NEXT: GOSUB30 : G0T0244 
14)3 SCREEN1: GOSUB3 2 : FORY=4 6TO50 : 
LINE(75,Y)-(85,Y),PRESET:NEXT:H= 
7 5:V=55:GOSUB96:CIRCLE(80,60),5, 

, . 5: GOSUB3 2 : GOSUB9 6 : CIRCLE (8)3,4 8 

142 *IFP$(1)="G"ANDS(1)=1THENDRAW 

"BM75,55;XQ$(1);":G0T0244 

144 IFP$(1)="G"THENDRAW"BM75,55; 

XDI$;" : GOSUB28:G0T02 62 

146 IFP$ ()3) ="G"THENDRAW"BM75,55 ; 

XQ$()3) ; " : GOSUB3)3 : G0T0244 

148 F0RX=3T05:IFP$(X)="G"THENDRA 

W"BM75,55;XQ$(X) 

150 NEXT:GOSUB30:G0T02 4 4 
152 SCREEN1: GOSUB32 : FORY=75TO80: 
LINE(155,Y)-(165,Y),PRESET:NEXT: 
H=155:V=8 5:GOSUB96:CIRCLE(160,90 
),5,,.5:GOSUB3 2:GOSUB9 6:CIRCLE(1 
6)3,77),5,,.5 

154 IFP$(1)="N"ANDS(1)=1THENDRAW 

"BM155,85;XQ$(1);":G0T0244 

156 IFP$(1)="N"THENDRAW"BM155,85 

;XDI$;":GOSUB2 8:GOTO 262 

158 IFP$(0)="N"THENDRAW"BM155,85 

;XQ$(0) ;":G0SUB3)3:G0T0244 

160 F0RX=3T05:IFP$(X)="N"THENDRA 

WBM155,85;XQ$(X); " 


162 NEXT:GOSUB3 0 :G0T0244 
164 SCREEN1:GOSUB32:F0RY=135T013 
9:LINE(115,Y)-(125,Y),PRESET:NEX 
T:H=115:V=145:GOSUB96:CIRCLE (120 
,150) ,5,,.5:GOSUB3 2:GOSUB9 6:CIRC 
LE(12,0,137) ,5, , .5 

166 IFP$ (1) ="WANDS (1) =1THENDRAW 
"BM115,145;XQ$(1);":G0T0244 
168 IFP$(1)="W"THENDRAW"BM115,14 
5;XDI$;":GOSUB28:G0T0262 


17 0 IFP$ (0) ="W"THENDRAW"BM115,14 

5;XQ$(0) ;":GOSUB30:GOTO244 

172 F0RX=3T05:IFP$(X)="W"THENDRA 



174 NEXT:GOSUB3 0 :G0T02 4 4 


176 N=6:SCREEN1:GOSUB32:FORX=55T 
065:LINE(215,X)-(225,X),PRESET:N 
EXT 

178 IFP$(0)="J"THENP$(6)="I"ELSE 
P$(6)="J" 

180 GOSUB110:DRAW"BM215,56;XQ$(6 
);":GOSUB28 : IFDI=1THEN262ELSE244 
182 N=7:SCREEN1:GOSUB32:FORX=160 
TO170:LINE(196,X)-(207,X),PRESET 
:NEXT 

184 IFP$ (0) ="Y"THENP$(7)="T"ELSE 
P$(7)="Y" 

186 GOSUB110: DRAWBM198,161 ;XQ$ ( 
7);»:GOSUB28:IFDI=1THEN262ELSE24 
4 

188 N=8:SCREEN1:GOSUB32:FORX=165 
T0175: LINE (80, X) - (90, X) , PRESET: N 
EXT 

190 IFP$(0)="V"THENP$(8)="Q"ELSE 
P$(8)="V" 

192 GOSUB110 : DRAWBM81,165 ;XQ$ (8 
);":GOSUB28:IFDI=1THEN262ELSE244 
194 TC=TC+1:DRAW »BM12 5,17 8;C5;XA 
R$ ;C0" 

196 N=l:C=C+l:GOSUB28:GOSUB94:P$ 


152 


(1)=MID$(1$(O,I),C,1):GOSUB36:GO 
SUB94:DRAW"BM=H(1);,=V(1);XQ$(1) 

. 11 
r 

198 IFP$(1)=P$(3)THENS(0)=1:P$(3 
) =•'"ELSEIFP$ (1) =P$ (4) THENS (1) = 1: 
P$ (4)=""ELSEIFP$(1)=P$(5)THENS(2 
)=1:P$(5)="" 

200 IFP$(1)=P$(0)THEN256ELSEIFP$ 
(1)="Z"THEN272ELSEIFP$(1)=P$(2)T 
HEN270 

202 A=RND(R):IFA=1THENGOSUB30:GO 
T0196 

204 GOSUB30:GOSUB116:GOSUB30 
206 IFDD=1THEN24 6ELSEN=2:DRAW"BM 
14 3,17 8;C5;XAR$;C0":GOSUB34 

208 GOSUB108 : PRINT"MOVE-" 

;TC:PRINT"TOTAL COUNT-";TC+K:PRI 

NT"INVADER- "IN$(O):PRINT"DE 

FENSES-";:FORX=0TO2:IFS(X)=1T 

HENPRINTSI$(X);:T=1 
210 NEXT:IFT=0THENPRINT" NONE" 
212 PRINT0160,STRING$(32,42);:PR 
INT"OPTIONS:":PRINTTAB(3)"A] VIE 
W":PRINTTAB(3)"B] WAIT":PRINTTAB 
(3)"C] HELP":PRINTTAB(3)"D] MOVE 
":PRINTTAB(3)"E] QUIT" 

214 IFP$(2)="B"ORP$(2)="I"ORP$(2 
)="R"THENPRINTTAB(3)"F] BOULDER" 
216 IFP$(2)="F"ORP$(2)="U"THENPR 
INTTAB(3)"F] TRAP DOOR" 

218 IFP$(2)="0"THENPRINTTAB(3)"F 
] PROCITIC"ELSEIFP$(2)="X"THENPR 
INTTAB(3)"F] TWAYBLADE"ELSEIFP$( 
2)="Z"THENPRINTTAB(3)"F] DEADNET 
TLE" 

220 PRINT044 9,"";:LINEINPUT"WHIC 
H? ";W$ 

222 IFW$="A"THENSCREEN1:GOSUB34 : 
GOTO208 

224 IFW$="B"THENSCREEN1:GOSUB28 : 
GOTO 244 

226 IFW$="C"THEN100 
228 IFW$="D"THEN230ELSEIFW$="E"T 
HEN290ELSEIFW$="F"THEN240ELSE242 
230 PRINT©331,"*<ENTER> X TO EXI 
T*";:PRINT0449,"WHICH WAY(";:P=A 
SC(P$(2) ) -64 : F0RX=1T08:IFMID$(C$ 
(P),X,1)<>"*"THENPRINTCP$(X) 

232 NEXT:PRINTCHR$(8:INPUT 

D$: IFD$="X"THEN208 

234 F0RX=1T08:IFD$=CP$(X)ANDMID$ 

(C$(P),X,1)<>"*"THENP$(2)=MID$(C 

$(P),X,1):X=8:G0T0238 

236 NEXT:PRINT0483," YOU CAN'T M 

OVE THAT WAY! ";:PRINT0448,STRIN 


G$ (32,32) ;:GOTO2 30 

238 SCREEN1:GOSUB30:GOSUB9 4:GOSU 

B36:GOSUB94:DRAW"BM=H(2)f,=V(2)f 

XQ$(2);": GOSUB90:IFP$(2)=P$(0)TH 

EN268ELSEIFP$(2)=P$(1)THEN270ELS 

E244: 

240 IFP$(2)="F"THEN120ELSEIFP$(2 
)="U"THEN130ELSEIFP$(2)="B"THEN1 
40ELSEIFP$(2)="I"THEN152ELSEIFP$ 
(2)="R"THEN164ELSEIFP$(2)="0"THE 
N176ELSEIFP$(2)="X"THEN182ELSEIF 
P$ (2)="Z"THEN188 

242 PRINT©484," USE ABOVE LETTER 

S ONLY 11 ;: GOSUB28 : GOTO208 

244 GOSUB28:GOSUB116 

246 N=0:DRAW"BM163,178;C5;XAR$;C 

0ii 

248 TS=TS+1:GOSUB36:GOSUB28:GOSU 
B94:P$(0)=MID$(SM$(S),TS,1):GOSU 
B90 

250 GOSUB36:GOSUB94:DRAW"BM=H(0) 
;,=V(0);XQ$(0);" 

252 IFP$(0)=P$(1)THEN256ELSEIFP$ 

(0)=P$(2)THEN268ELSEIFP$(0)=»Z"T 

HENS=RND(4)-1:TS=0 

254 A=RND(10):IFA=1THEN248ELSEG0 

SUB28:GOSUB116:G0T019 4 

256 F0RY=1T05:GOSUB94:DRAW"BM=H( 

N) ;,=V(N);XQ$(1);":GOSUB94:DRAW" 

BM=H(N);,=V(N);XQ$(0);":NEXT:GOS 

UB9 4:DRAW"BM=H(N);,=V(N);XDI$;" 

258 IFP$(2)<>""THENN=2:GOSUB36:G 

OSUB94 

260 F0RX=15T024:LINE(235,X)-(244 
,X),PRESET:NEXT:DRAW»BM235,15;XQ 
$ (2);":GOSUB2 6 

262 POKE329+0,TC:FORX=330TO337:I 
FPEEK(X)=0THENX=337:G0T0266 
264 NEXT:GOTO106 

266 GOSUB98:GOSUB10 8:PRINT©129," 
THE INVADER HAS BEEN DEFEATED!": 
PRINT0235,"MOVES :";TC:PRINT0326 
,"THE GAME CONTINUES..":G0SUB26: 
G0SUB3 0:G0T02 7 6 

268 F0RY=1T05:GOSUB94:DRAW"BM=H( 
N) ;,=V(N);XQ$(2);":GOSUB94:DRAW" 
BM=H(N);,=V(N);XQ$(0);":NEXT:DD= 
1:P$(2)="":GOSUB116:G0T019 4 
270 F0RY=1T05:GOSUB94:DRAW"BM=H( 
N) ;,=V(N) ;XQ$(2);":GOSUB94:DRAW" 
BM=H(N);,=V(N);XQ$(1);":NEXT:DD= 

1:P$(2)..G0SUB116:G0T0246 

272 F0RY=1T05:G0SUB94:DRAW"BM=H( 
N) ;,=V(N);XQ$(1);":NEXT:FORY=176 
T0183:LINE(51,Y)-(58,Y),PRESET:N 
EXT:GOSUB98 
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274 GOSUB108 : PRINT0132 , "YOU HAVE 
LOST THIS GAME! ":PRINT@230, "TOT 
AL GAME COUNT:"?TC+K:PRINT:PRINT 
:LINEINPUT" TRY AGAIN? 

"?A$:IFA$="Y"ORA$="YES"THENRUNEL 
SECLS:END:G0T022 

276 GOSUB108 : PRINT075 , "SCOREBOAR 
D":PRINT:Y=121 
278 F0RX=1T08 

280 PRINTTAB (4) X ? CHR$ (8) ? " ] "?IN 
$(X) ? 

282 Y=Y+32:IFPEEK(329+X)=0THENPR 
INT0Y,"**"ELSEPRINT@Y,USING"##"? 
PEEK(329+X) 

284 NEXT: PRINT0409, : PRINT042 
2 , "TOTAL GAME COUNT" ? : PRINT0440 , 
USING"###"?TC+K 

286 IFFF=1THENPRINT@491," *FINIS 
H* "?:G0SUB34:CLS:END:G0T022 
288 PRINT0484," PRESS TWICE TO P 
ROCEED "?:GOSUB34:GOSUB34:GOSUB1 
08: G0T0310 

290 GOSUB108 : PRINT0230 , "ARE YOU 
SURE (Y/N)?"?:LINEINPUTF$:IFF$=" 
Y"THENFF=1:GOTO276ELSE208 
292 GOSUB108 : PRINT0197 , "HEAT NOT 
A FURNACE FOR" :PRINT0228,"YOUR 
FOE SO HOT THAT IT" : PRINT02 60, "D 
O SINGE THYSELF-":PRINT0334,"W.S 
HAKESPEARE" 

294 DRAW"BM75,4 6 ?R135F7G7L135U13 
":F0RX=44T068STEP6:CIRCLE(X,53), 
3,,2:NEXT:F0RX=49T057STEP4:CIRCL 
E (41, X) , 3 :NEXT:FORX=3 5T071STEP6: 
CIRCLE(73,X) , 3:NEXT:LINE(97,51) - 
(210,51),PSET 

296 DRAW"BM179,130 ?L135G7F7R135U 
13":FORX=186T0210STEP6:CIRCLE(X, 
137),3,,2:NEXT:F0RX=133T0141STEP 
4:CIRCLE(213,X),3:NEXT:FORX=119T 
0156STEP6:CIRCLE(181,X),3:NEXT:L 
INE(44,135)-(157,135),PSET 
298 LINE(90,79)-(162,113),PSET,B 
:LINE(94,83)-(158,109),PSET,B:DR 
AW"BM105,92 ? D8R1U8R5F1D2G1L4R4F1 
D2G1L4BR12BU8R2F3D5U4L7D4U5L1D5U 
5R1E3L1G3BR12D5U8R1D8R5U2D2BR4U8 
R1ND8R4ND8R4ND8":PAINT(100,80) 
300 LINE(90,79)-(94,83),PRESET:L 
INE(162,79) -(158,83),PRESET:LINE 
(90,113)-(94,109),PRESET:LINE(16 
2,113)-(158,109),PRESET 
302 DRAW"BM84,58 ?U10R1ND10R5F1D3 
G1L4R4D5R3E4G2H2F4":PSET(100,55) 

:PSET(100,57) 

304 SK$="R2F4D4G2D2G2H1G1H1G1H2U 


2H2U4E4R2BD8D1NF1NG1U1BH2E1U1H1L 

1G1D1F1R1BR4R1E1U1H1L1G1D1F1" 

306 FORH=27T0240STEP20:DRAW"BM=H 
?,3 ?XSK$?":DRAW"BM=H?,175 ? XSK$ ?" 
:NEXT:F0RV=3T0156STEP17:DRAW"BM9 
,=V? XSK$?":DRAW"BM245,=V ? XSK$ ?": 
NEXT:DRAW"BM9,175?XSK$?BM245,175 
?XSK$ ?":LINE(20,19)-(234,172), PS 
ET,B:PAINT(0,0) 

308 GOSUB108:PRINT0195,"RETRIBUT 
ION RETRIEVAL LTD.":PRINT0298,"P 

RESENTS_"::GOSUB26:SCREEN1:FO 

RZ=1TO10:GOSUB118:NEXTZ:CLS:SCRE 
EN0:CLS0 

310 CLEAR200:DIMH(8),V(8),K(8),S 
(2),P$(8),Q$(8),C$(26),CP$(8),IT 
$ (8) ,SI$(2) ,1$(8,2) ,IN$(8),SM$(3 
) 

312 F0RX=1T02 6:READC$(X):NEXT:FO 
RX=1T08:READCP$(X),IN$(X),IT$(X) 

:NEXT:FORX=0TO2:READSI$(X):NEXT: 
FORX=0TO3:READSM$(X):NEXT:FORX=l 
T08 : READI$ (X, 0) , 1$ (X, 1) , I $ (X, 2) : 
NEXT:FORX=0TO8:READQ$(X):NEXT 
314 GOSUB108:PRINT071,"I BID YOU 
WELCOME!":PRINT:F0RX=1T08:SOUND 
200+X,1:PRINTTAB(2)X ? CHR$(8) ?"] 
"IN$(X)?", "IT$(X):NEXT 
316 Y=1122:FORX=330TO337:Y=Y+32: 
IFPEEK(X)=0THENPOKEY,106:SOUND24 
0,1:ELSEPOKEY,9 6 

318 NEXT:Y=0:PRINT0423,"PAUSE AN 
D CONSIDER":F0RX=1T08:K(X)=PEEK( 
329+X):K=K+K(X):NEXT 
320 PCLS5:N$="G3L3G2L2H2L5H3U2H2 
U2E2U2E2R2E2R2F2R5F4":S$="E5R2E2 
U3E2U2H4L2U2L2H2":L$="H4U2H2U3H1 
E4R3E1R2F1R3E1R2F4D2F2D3G5":T$=" 
F3R2F4R3E2F2R4E2R3E4":AR$="D3R1U 
3":DI$="BR2BD6R7NU1L5U1L2":WB$=" 
ND27NG27NL27NH27NU27NE15NR15NF15 
":C$="C5" 

322 DRAW"BM255,98?L2H2G3H1L1H1L2 
H1L2G3L2H1G1H1G1L3H3L4H2G2L1H1L3 
G1D1G1D1G2L1G4D1F1D1G1F2E2F3R2F1 
R1F1D1G1D2F3G2D1G2D3G1L1G1L2D2G1 
D1G3D1F3R2F4D2G2F2D3G3F3D3R1D1F2 
G2D3G1L1G1L2H2L4G1L2H1L2G2H2U3H2 
U2E2U1H1E2U2H4U2H3U2H2L1H2U2H3G2 
H2U2H4L1H3L2D4" 

324 DRAW"F2D2G1D2L1F4D2F1D2F2H2F 
2D3G4L3G3L1H3L2G2H3L2H2L4H2L2G2L 
2H2L1G5L2G2L2H2L2G2L2H3U2E2H3U3L 
2H4L2U1H3U2H6U1H2L3G2F3D2F2D2G4R 
3F3D3F2D5G4F4D2F3G3D2F2D2G2L3H2G 
2L2H2L3H2U3H2U2E2U2E2R2U2L3G6D2G 
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6D2F3D2G7L3H2L3G2L3H2G3L3H2L10H3 

it 

326 DRAW"XN$;XS$;XN$;XS$;XN$;XS$ 
?XN$?XS$?XN$?XS$;XN$?E2R3E5" 

328 REM OUTER RING FROM H35-V19 
TO H225-V53 

3 30 DRAW"XL$ ? XT$ ? XL$ ? XT$ ?XL$ ? F6D 

2F2D3G2F2G4L2G4D2F1G1D4F2R3E1R1F 

4R3E3F3R2E8U3E2U2H4U2H3U3H2E4U2E 

2R1?XL$?XT$? XL$? F3D2F4U3E3U4E6U2 

E4R3E2R3F2R2E2R4F3R3F4D3G2D2F2D2 

G2D6G4L3G3L6H2L4H2L3H2G2L3G3L2G2 

L3G2D2F2G2D3G1F3D2F2E4R3E2F3R4" 

332 DRAW"F4D3F2D2G5L3H2G2L3H5G7D 

4F3G3R2F3E5R2F2R2E1R2F3E4R3F1R1E 

1R3F2R2E3R4F3R2" 

334 DRAWBM175,33 ?R4F2E2F3R1E3F2 
D3F2D3F2G4D2G4L3G2L2H3L2G2L2H6E3 
U2H3U1E8? BM160,67?R3F1R2E2R2E3F1 
R2E2R2F2R2E2F6D2F2 D4F2D2G4L3G1L2 
H2L2G3L2H3L2H4U6L16D6G4L2H1L3G2L 
2G2H2G3H4U2H2U2E2H2E2H2E5F2E2R2F 
2E2R4E2F6E1R2F2E2R2" 

336 DRAW"BM191,97?F3D2G2F2D2G2F1 
G4D2G2F2D2G2F2R2D2F4G2F2D4L3H6U2 
H3G2H3U2L2H4L2U2E3H3U2H4E3H3U3E4 
R2E2F2E2F2E2F2E2F4?BM149,95?D3F2 
R3D2F1D2G2F2D2G3L2G2L2G1L4H1L4G1 
L4H5L3H2L2G2L3G4L4G1L4H2L8E4R2E2 
R2E3R3E3R3E3U2R3F2E2R2E4R3E2R4E2 
R3F4R2" 

338 DRAWBM128 f ?_40 ?U7L16D7H8L2H4 
U1H4L2U1E1R3F2R2E1R2F1R1E2F7R3F2 
R3E2R2E4R3F2E2R4E2F2R4F4R1F2D3G2 
F2G2D2G5L2H2G2H2G2L3H2L1H4?BM50, 
95?E2R2F2E3R2F3E2R2F5D2F2G2F3D3G 
8L3H2L2G2H2G2L2H3U3L2U3L1H2E2H3U 
1E5R2" 

340 DRAW"BM116,39 ?D2G2F2G2F2D2G5 

D2G2F2D4F5D2F2G2F2G2D2L2G2D1G2D3 

G2D2G4L2G3L2G3L2G5L1U3H1E2H3E2U2 

E4U3E2H2U2H5U2E2H3U3E5U2E3U2E4R2 

E8R2E6R2? BM52, 125 ?F5R2F3R2F4D1F3 

R2E2U2H2E2H2E2H5L2G2L2H2G2H2L6" 

342 DRAWBM72,52 ?U8R16D8E3R2E3R2 

E3R1E3R2E3H3L3G2L2H3L4G2L1D2G5H2 

G2H2G2H3L2D2G3D1G3D1G3L4G3L2G4F2 

G2F2G4L2D3G2F2D2G2F2G1F6R2E2R2F2 

R2E2F2E2F2R2E6H2U2E2U4H5U3H2E2H3 

U2R2H2E2R2 ? BM4 5,129?F3D2F4E2F6E2 

F6G2L2H2L2G2H2G2L2H8U2H2U2E2U3" 

344 DRAWBM44,162 ?E4U2E2R2F3E3F2 

R2E2R2F4G4L2D2G4D2L3G2L3H4U2H4 ? B 

M45, 40 ? E4R2E2F2E3R2F2R2D2G3D2G3L 

2G4L1G3H3E2U2H3E1" 

346 F0RX=113T0127:LINE(170,X)-(1 


90,X),PRESET:NEXT:DRAWBM170,113 
?R5U2R2F3R2E2R2F2R2E3? BM177,127? 
L4H3U2E2R3F3R2E2R3F3R2E2R1D3G2" 
348 PAINT(0,0) :PAINT(175,50) :PAI 
NT(170,75) :PAINT(18 5,110) :PAINT( 
144,105) : PAINT (140,135) : PAINT (10 
0,75):PAINT(60,75):PAINT(60,105) 

:PAINT(65,130):PAINT(50,142)sPAI 
NT(55,163):PAINT(55,40):PAINT(18 

ft, 130) 

350 DRAW"BM36,6 ? BR4R2F3D5U4L7D4U 
5L1D5U5R1E3L1G3;BM76,6? BR1D8R1U8 
R5F1D2G1L4R4F1D2G1L4?BM116,6?BR1 
D8R1U8R6D1BD5D2L6? BM155,6 ? BR1D8R 
1U8R5D8L4R4U1R1U6 ? BM195,6 ?BR1D8R 
7U1D1L6U4R4L4U4R6D1" 

352 DRAW'BMll,26? BR3R2D8R3L5R3U8 
?BM11,56 ?BR1D1U1R7D3L1U2D3L6D4R1 
U3D3R6U1? BM11,86? BR2D1U1R6D3R1U2 
D2L1G1NL2F1D2R1U2D2G1L6U1? BM11,1 
16 ? BR6D8R3L5R3U8D5R2L7U1E4?BM11, 
146 ? BR2R7D1U1L7D4R1U3D3R4F1D3R1U 
3D3L7U1? BM11,17 6? BR2R7D1U1L7D8R1 
U7D3R6D4L1U3D3L4" 

354 F0RC=8T028STEP4:CIRCLE(240,2 
0) , C:NEXT: DRAW"BM240 , 20 ?XWB$ ? " : F 
0RY=15T025:LINE(235,Y)-(245,Y),P 
RESET:NEXT:CIRCLE(240,20),7,5 
356 CIRCLE(160,77),5,,.5:CIRCLE( 
120,137),5,,.5:CIRCLE(80,48),5,, 
. 5:DRAWBM215,56 ? XQ$(6) ? BM198,16 
1?XQ$(7) ? BM81,165? XQ $(8) ?BM35,17 
5 ? XQ$(0) ?" 
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358 DRAW"BM2 3 5,16J3?C5?NU15NE7NR1 
5NF7ND15NG7NL15NH7 ? BM2 30, 13/3 ? Fll 
H1NE1H1U7E2G1NF1G1D7BL7G2E1NH1E1 
U7H1G1CJ3" : LINE(33,113 ) - (47,126) , 
PSET / B:LINE(73 / 24)-(87,37),PSET, 

B 

3 60 DRAW " BM2 3 5,15? XQ $ (2) ? " s LINE ( 
51,176)-(58,183),PSET,BF:DRAW'BM 
55, 180 ? C5 ?U1L1D1R1 ? C0" : PRESET (56 
,176) 

362 S0UND230,1: PRINT0419 , " " ?: LIN 
EINPUT"NUMBER OF MORTAL WE SEEK? 

"? 0 $:IFO $=""THENPRINT @419,STRIN 
G$ (32,32) ?:G0T0362 
364 IFLEN(0$)>10RASC(0$)<490RASC 
(O $)> 5 6 THENPRINT @455,"* THOU DOST 
MISCALL*":G0SUB28:PRINT@ 416,STR 
ING$(64,32)?:G0T0362 
366 0=VAL(0$) :IFK(O)>0THENPRINT@ 
457,"*GONE FISHING*":G0SUB28:PRI 
NT@416,STRING$(64,32)?:G0T0362 
368 IFLEN (IN$ (O) ) <10THENX=227ELS 
EX=225 

370 CLS0 : PRINT@224 , STRING$ (32,32 
)?:PRINT@X,"HARK! "?IN$(0)?« APP 
ROACHES.."?:G0SUB26:SCREEN1 
372 FORH=245TO205STEP-10: DRAW'BM 
=H ? , 85 ? XQ$ (1) ? " : GOSUB30 : DRAW"BM= 
H? ,85?C5?XQ$ (1) ? C0 ? " :NEXT: DRAW"B 
M195,85 ?XQ$(1) ?" 

374 F0RY=1T06:DRAW"BM23 5,15 ? C5 ? X 
Q$ (2) ; " : G0SUB32 : DRAW"BM2 35,15 ? C0 
? XQ$ (2) ? " : G0SUB3 2 : NEXT: G0SUB30 
376 F0RY=2T06:IFC$="C5"THENS0UND 

2W,1 

378 DRAW"BM105,185 ?XC$ ?U5R2FDGL2 
BR6BD2U5R2FGL2F3BR3NR3U3NR2U2R3B 
R3BD5BUFREUHL2UERFBR3BD4BUFREUHL 
2UERFBR7BD4NU5EU2RD2FU5BR3BD5U3N 
U2R3NU2D3BR3NR3U3NR2U2R3BR3BD5U5 
F3U3D5BR7U5R2FGL2F3BR3NR3U3NR2U2 
R3BR3BD5U2NR3U2ERFD4BR3U5RF2DG2L 
BR6BU5D2FRD2NLU2EU2" 

380 IFY=2ORY=4THENC$="C0"ELSEC$= 
"C5" 

382 GOSUB32:NEXTY:DRAW"C0":GOSUB 
34 

384 GOSUB108:PRINT:PRINT" PLAC 

E DEFENDER IN CAVE. USE HORIZO 
NTAL LETTER FIRST THEN VERTIC 
AL NUMBER.":PRINT:PRINT" (EX 

AMPLE: A1 <ENTER>)":PRINT:PRINT" 
IF YOU WISH TO SURVEY THE CAVE 
BEFORE PLACING DEFENDER JUST 
TYPE 'CAVE'. »; 

386 PRINT"TO RETURN TO THIS SCR 


EEN TAP ANY KEY." 

388 PRINT@416,STRING$(31," "):PR 
INT@416,""?:INPUT" WHERE"? P$ 

390 IFP$="A6"ORP$="E3 "THENPRINT® 
452,"*DEATH AWAITS YOU THERE*":G 
0T0388 

392 IFP$<>"CAVE"THEN396ELSESCREE 
N1 

394 A$=INKEY$:IFA$=""THEN394ELSE 
384 

396 IFLEN (P$) 02THEN388 

398 IFASC(LEFT$(P$,1))<650RASC(L 

EFT$(P$,1))>69 ORAS C(MID$(P$,2,1) 

)<490RASC(MID$(P$,2,1))>54THEN38 
8 

400 A=ASC (LEFT$ (P$ , 1) ) -64:H(2) = ( 
A*35)+((A-l)*5):A=VAL(MID$(P$,2, 
1)):V(2)=(A*25)+((A-l)*5):IFH(2) 
> 3 5ANDV(2)=17 5THEN388 
402 FORX=180TO185 : LINE (105 , X) - (1 
95,X),PSET:NEXT 

404 SCREEN1: GOSUB30: F0RY=15T024 : 
LINE(235,Y)-(244,Y),PRESET:NEXT: 
DRAW"BM240, 20 ? XWB$ ? " : DRAW" BM=H (2 
) ?,=V(2) ? XQ$(2) ;":S=RND(4)-1:I=R 
ND(3)-1:P$(4)=»"1" rP$(5)="2" 

406 GOSUB30: F0RN=3T05 

408 P=RND(25):IFP=15THEN408 

410 P$ (N) =CHR$ (P+64) :IFP$(4)=P$( 

3)ORP$(5)=P$(4)ORP $(5)=P$(3)THEN 

408 

412 G0SUB3 6:1FH(N)=H(2)ANDV(N)=V 
(2) THEN4J38 

414 S0UND2 4 J3,1: DRAW" BM=H (N) ?,=V( 
N) ?XQ$(N)?":NEXT 

416 P=((H(2)+5)/4j3) + ((V(2)-25)/6 
) : P$ (2) =CHR$ (P+64) :P$(j3)="Z":C=l 
:R=VAL(LEFT$(I$(O,I),1)):H(1)=19 
5:V(l)=85 

418 GOSUB3J3 : G0SUB118 : DRAW"BM12j3 , 
166 ? C5 ? XQ$(1) ? BM139,166 ? XQ$(2) ?B 
M158,165 ?XQ$ (j3) ? " : G0SUB2 6 : S0UND5 
j3,1: G0T0194 

42J3 DATA**B*F***,**C**FA*,****HG 
B* ,**E*I***,****j*D*,AB**K***,*C 
**L***,C*I*M***,D*J***H*,E***0*I 
*,F*L*P***,G***Q*K*,H*N**Q* *,**0 
*S*M*,J* **T*N*,K*QVU* * *,LMRWV*P* 
, **s***Q*,N*TYX*R*,0***Y*S*,P*V* 
Z***,Q****ZUP,**X****Q,S*****W*, 
T******S,UV****** 

422 DATAN,SIR KEN,THE MARKSMAN,N 
E,SIR ERIC,THE WHIFFER,E,SIR GRE 
G,THE BOUNDLESS,SE,SIR JEFF,THE 
MERCIFUL,S,SIR MARK,THE JOYFUL,S 
W, SIR STEVE,THE ANXIOUS,W,SIR GR 
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EGORY,THE GRADUAL,NW,SIR RICHARD 
,THE PUZZLER 

424 DATA" SWORD"," SHIELD"," STA 
FF",UPKFABFABCHMQPUZ,UVQWXSYTONM 
QVZ ,UPQMNOJEDIHCBFKPVZ,UVPKLGCHI 
DEJIDEJOTYSXWQVZ 

426 DATA8JEDIHCGLKPUZ,8JEDIHCBFK 
LQPUZ,8JONMHCBFKPUZ,6TYSRQLQMHID 
IHCBFKLQVZ,6TYSRQLQMHIDIHCGLQVZ, 
6 T S XWQMHIJ0NMQV Z,5TSRQMNOTSXWQVZ 
,5TSRQMHIJONMQVZ,5TYSRQLKPVZ,8JI 
HCBAFKLQRSXWQVUZ,8JIHCBFKPQRSRQV 
UZ,8JIHCGLKPUZ 

428 DATA3NMHIJOTSXWQPUZ,3NMHIJOT 
YSRQVUZ,3NMHIHMQPUZ,8TYSXWQLKPUZ 


,8TYSXSRQLKPUZ,8TSRQVZ,5JEJIHMNS 
RQLGCHMQVUZ,5JEJIDEJOTSRQPUZ,5JO 
NSRQLKFBCHMQVUZ,4NMHMQVZ,4NMHMQP 
UZ,4JIHCHMQVZ 

430 DATABR2BD1NR3D1R7D7L7U5R5D3L 
3U1,BR5BD1D5R1U5D2R2ND2L5ND2R2D3 
L1ND2R3D2,BF5H2NU1NL1F4ND1NR1H2E 
2NU1NR1G4ND1NL1,BR5BD1D2ND6R1NF1 
L2G1,BF2R6D4G2L2H2U4F4BL2E4,BD2B 
R2R1E1R2F1D1G2D4 

432 DATANF6D1R1D2R2BR3R2U2R1U1G6 
R1D2NG1R1NF1U3R3NF1L7NG1,D3R9U3G 
3H1L1G1H3F4G3R1U1BR5D1R1H3,BR3D1 
R5U1D1L2D7NF1L1NG1U6NG3R1NF3D3NF 
3L1NG3 ^ 



157 
















158 













The Professional 




Program by Franklin Marrs 


orking the rough end of town as a private 
investigator has not exactly made you wealthy. 
Nor has it gotten your name, Joseph Benjamin 
Gunn, etched in any city plaques commemorat¬ 
ing heroics. But for the past 15 years, it’s been 
a living — although sometimes just by the skin 
of your teeth. Oh well, you’d probably get bored 
in a job that didn’t threaten your existence every 
once in a while. Besides, you’re so good at what 
you do, you like to consider yourself not only 
a professional, but The Professional. 

Nevertheless, even The Professional has his 
slow days, and today’s been one of them. There 
was one call from someone at the high school 
requesting that you give a presentation on 
criminology sometime next week. Otherwise, 
the majority of the day was indulged in the 
office easy chair playing computer games and 
watching your pocket television. However, no 
sooner than you decide to call it a day, the 
phone rings. 

You pick up the receiver, but before you are 
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able to say anything, the office door creaks open and a rather attractive young 
lady enters the doorway. 

You are stunned when you realize she’s Claudine Huntsdale, the well-to-do 
model living on Richman Avenue. It’s not too often someone of her notoriety 
requests your assistance, and never anyone even half as good looking. 

Earlier today, Ms. Huntsdale discovered that her million-dollar jade necklace 
was missing. Her assumption is that it must have been stolen since she always 
secures it in her wall safe every night before going to bed, and did so last night 
as well. She doesn’t have a clue as to who could be responsible, but wants to 
hire you to recover the priceless piece at 1,000 bucks a day, plus expenses. 

Uncertain of why you were chosen, your apprehension is quickly forgotten 
when she sweetens the deal by promising a $20,000 bonus for its safe and 
expedient return. How can you refuse? 

Anxious to put things into perspective, you begin by digging up a little more 
information on Claudine Huntsdale. Since she is a nationally known model 
who has always received a lot of publicity, the researching is all the easier. It 
doesn’t take long to gather enough background information on her to give you 
a few possible leads. 

Apparently, Ms. Huntsdale made her fortune adorning the creations of 
Italian designer Antonio Sarducci. Although the two never married, it was 
common knowledge that they maintained much more than just a working 
relationship. But when the press uncovered and exposed his affiliation with the 
mob, both of their reputations were so seriously damaged that their illustrious 
careers were all but destroyed. And, shortly after that, Claudine poured salt 
on Sarducci’s wounds by ending their relationship. 

Ms. Huntsdale was gradually able to restore her reputation and resume her 
success. But Sarducci never did much to improve his tarnished image. He 
opened an inn on the harbor, but it’s supposedly under investigation for a 
number of illegal activities. And he’s recently been connected with George 
Helming, suspected operator of the largest fencing operation in the state. 

Well now, that ought to give you something to go on, so don’t waste any 
more time. The only way you are going to find that necklace and earn the bonus 
is to get out in the streets and start asking a few questions. 

The Professional is comprised of two BASIC program listings and is set up 
to run on a cassette based system. To allow the program to be automatically 
loaded and executed from disk, change the CL0flD"PRDFE5NL" in Line 430 of 
TITLPRGE to RUN "PR0FE5NL". 
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Upon running the first program, TITLPRGE, a colored screen will appear. If 
it is red, press ENTER, else press reset and run the program again until the screen 
is red. After pressing ENTER, a graphics title screen appears accompanied by 
music and followed by the scenario and instructions for playing the Adventure. 

After the instructions are read and understood, press N when prompted with 
NEED INSTRUCTIONS RGRIN? and the second program, PRDFESNL, will 
automatically be loaded into the computer. When the OK prompt appears, type 
RUN and the Adventure begins. 

The Professional is a random text Adventure; therefore, the stolen jade 
necklace could be hidden in any one of five different locations each time the 
game is played. 

Single-key directional commands of N (North), S (South), E (East), W (West), 
U (Up) and D (Down) are available. The standard two-word commands (a verb 
followed by a noun) are used and the following verbs are accepted: 


RSK 

HIT 

OPEN 

BREAK 

INSERT 

PULL 

DROP 

INVENTORY 

PUSH 

EAT 

KICK 

READ 

EXAMINE 

KILL 

SHOOT 

GET 

LOAD 

UNLOCK 

GIVE 

LOOK 

WHERE 

HELP 

MOVE 

WHO 


Be sure to use the RSK command as often as possible. It will be most beneficial 
in obtaining clues from the people you encounter in the Adventure. To do so, 
type RSK, followed by the person to whom you are talking (e.g., type RSK NRC 
and press ENTER). Then proceed with the question command. For example, 
type WHERE MONEY to ask, “Where is the money?” 


Franklin Marrs is a self-taught programmer and an aspiring writer. The 
Professional was adapted from one of his works by the same name. 
Questions or comments may be addressed to Franklin at 2601 Andy Drive , 
Columbia, MO 65202. Please include an SASE when requesting a reply. 
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TITLPAGE 32K ECB 


5 CLS:PRINT"IF NEXT SCREEN IS RE 
D":PRINT"THEN PRESS 'ENTER'":PRI 
NT"ELSE PRESS RESET AND RUN AGAI 
N" : F0RX=1T03 5J3J3 : NEXT 

1) 3 CLEAR1J3J3J3 : R=3 : B=2 

15 PM0DE4,1:PCLS1:SCREEN1,1:PMOD 
E3:PCLS3 

2) 3 IFINKEY$=CHR$ (13) THEN2 5ELSE2)3 
25 CLSJ3 : PRINT@1)3, "please" ?CHR$ (1 
28) ?"wait"?:PRINT046,"for"?:PRIN 
T@73,"title"? CHR$(12 8)?"screen"? 

: PMODE4,1: PCLSJ3 : SCREENJ3, J3: DIM Y( 

3) ,B(3) /G(3) , S (3 ) ,P(3) ,L(3) ,V(3) 

:LINE(32,0)-(48,5) ,PSET,BF 

3)3 FORX=31T047STEP4 : PSET (X,)3, )3) : 
PSET (X+2, 1, )3) :PSET(X+l,4,0) : PSET 
(X+3,5,0) : NEXT 

35 F0RX=32T047STEP8:PSET(X,8):PS 
ET(X+4,9):LINE(X,12)-(X+l,12),PS 
ET: LINE (X+4,12 ) - (X+5,12) , PSET: LI 
NE(X+2,13)-(X+3,13),PSET:LINE(X+ 
6,13)-(X+7,13),PSET 
40 PSET(X,16) : PSET (X+l, 17) : PSET ( 
X+4,16) : PSET (X+5,17) :PSET(X+l,20 
):PSET(X+5,21):NEXTX:PMODE3:COLO 
R2,3:LINE(32,24)-(48,24),PSET:LI 
NE(32,25)-(48,25),PRESET 
45 PMODE4 : GET (32,0)-(47,l) ,Y,G:G 
ET(32,4)-(47,5),B,G:GET(32,8)-(4 
7,9),G,G:GET(32,12)-(47,13),S,G: 
GET (3 2,16) -(4 7,17) ,P,G:GET(32,20 
)—(47,21),L,G:GET(32,24)-(47,25) 

/ V, G 

50 GOTO100 

55 LC=VAL(MID$(PT$,2,3)):TC=VAL( 
MID$(PT$,6,3)):RC=VAL(MID$(PT$,1 
0,3) ) : BC=VAL(MID$ (PT$ ,14,3) ) 

60 XX$=LEFT$ (PT$, 1) : IFXX$="Y"THE 
N65ELSEIFXX$="B"THEN70ELSEIFXX$= 
"G"THEN75ELSEIFXX$="S"THEN80ELSE 
IFXX$="P"THEN85ELSEIFXX$="L"THEN 
90ELSEIFXX$="V"THEN95ELSERETURN 
65 FORYY=TC TO BC STEP2:FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 
YY+1),Y,OR:NEXTZZ,YY:RETURN 
70 FORYY=TC TO BC STEP2: FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 
YY+1),B,OR:NEXTZZ,YY:RETURN 
75 FORYY=TC TO BC STEP2:FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 
YY+1),G,OR:NEXTZZ,YY:RETURN 
80 FORYY=TC TO BC STEP2: FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 
YY+1),S,OR:NEXTZ Z,YY:RETURN 


85 FORYY=TC TO BC STEP2:FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 
YY+1),P,OR:NEXTZZ,YY:RETURN 
90 FORYY=TC TO BC STEP2: FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 
YY+1),L,OR:NEXTZZ,YY:RETURN 
95 FORYY=TC TO BC STEP2:FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 
YY+1),V,OR:NEXTZZ,YY:RETURN 
100 PMODE4 : PCLS1: COLOR0,1: G0T015 

105 LINE ( 30,30) - (170,130) ,PSET,B 
:RETURN 

110 LINE(30,30)-(0,10),PSET:RETU 
RN 

115 LINE(55,45)-(105,130) ,PSET,B 
:RETURN'DOOR 

12J3 DRAW"BM17j3,3j3U15M+4j3, -15" : RE 
TURN 

125 LINE (6J3,5J3) - (1J3J3,85) ,PSET,B: 
RETURN'WINDOW 

13/3 DRAW"CJ3BM6J3,78RE2RER2ERER2F2 
RERE3R2UR13D2GL5D2L2D3GL4GL2G2L2 
G3":RETURN 

135 DRAW"BM56,13j3G2j3R9j3H2 j3" : RETU 
RN 

14/3 DRAW"BM55,14J3G8R65H8L49" :RET 
URN 

145 DRAW"BM3j3,13J3G31BM17J3,13J3D15 
F47":RETURN 

15/3 GOSUB1J3 5: GOSUB115 : PAINT (31,3 
1) ,/3,/3:PT$="Yj33j3, /33/3-17/3,13J3" :GO 
SUB55 : GOSUB1J3 5: GOSUB115 
155 GOSUB11J3: GOSUB12j3 
16/3 GOSUB125:PAINT(56,46) , /3 ,/3 : PT 
$="SJ355 ,/345-l/32,13J3" : GOSUB55 : GOS 
UB115:GOSUB125 

165 GOSUB13J3: PAINT(61,51) ,/3,/3:PT 
$="Vj361, j351-j393 , j384" : GOSUB55 : GOS 
UB125 : GOSUB13j3 : PAINT (61,79) ,/3,/3: 
GOSUB115 

17) 3 GOSUB13 5 :GOSUB14j3: PAINT (57,1 
41) ,/3,/3:PT$="Gj347,14/3-1/34,148" :G 
OSUB55: GOSUB14J3: PAINT (56,131) , J3, 

J3 

175 GOSUB145 

18) 3 POKE178,1: PAINT (1,2)3) , ,)3 
185 POKE178,)3: PAINT (1,1) ,)3,)3 

19) 3 POKE178,)3: LINE (1)39,6)3)-(165, 

1) 35) , PSET, B: LINE (112,63)-(162,1)3 

2) ,PSET,BF 

195 POKE17 8,1: PAINT (2 5)3,19)3) , , )3 
2)3)3 POKE 17 8 , )3 : DRAW"C1BM13 2,7)3D4U 
4R3FGNL3FGNL3BR7U2H2F2E2"'BY 
2)35 DRAW"BM118,78NR5D4NR3D4BR8U8 
R4FD2GL4R3F2D2BR3U6E2RF2D2NL5D4B 
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R3U8M+5,+8U8BR3D8U4RNM+4,-4M+4,+ 
2D2 

21J3 DRAW"BM118,92ND8RF2E2RD8BR3U 
6E2RF2D2NL5D4BR3U8R4FD2GL4R3F2D2 
BR3U8R4FD2GL4R3F2D2BR3R4EU2HL3HU 
2ER4 

215 DRAW"BM2J3,5R6D2L2D5L2U5L2U2B 
R9R2D3R2U3R2D7L2U2L2D2L2U7BR9R5D 
2L3D1R2D1L2D1R3D2L5U7" 

22J3 DRAW"BM35,17R4FD2GL2D3L2U7BR 

8R4FD2GFD2L2U2HD3L2U7BR9R3FD5GL3 

HU5EBR7R5D2L3D1R2D2L2D2L2U7BR8R5 

D2L3D1R2D1L2D1R3D2L5U7BR9R3FD1L3 

F3D1GL3HU1R3H3U1EBR8R3FD1L3F3D1G 

L3HU1R3H3U1EBR7R2D7L2U7BR6R3FD5G 

L3HU5EBR7R2F2U2R2D7L2H2D2L2U7" 

225 DRAW"BR1J3R3FD6L2U3L1D3L2U6EB 

R7R2D5R3D2L5U7" 

235 G0T0245 

24J3 DRAW"CJ3BM165,191H3U2H6L2H12U 
3H3U6H3LD6L3G3D3F19D1J3U1J3ER4H12L 
H6U3":RETURN 

245 GOSUB240:PAINT(150,178) ,0,0: 
PT$="S129,160-165,191": G0SUB55:G 
OSUB240 : PAINT (162,190) ,0,0 
250 PAINT (140,166) ,0,0: P0KE17 8,2 
:PAINT(1,190) , ,0:POKE178,0 
255 SCREEN1,1 

260 FORX=1TO750 : NEXT: PLAY"02T3L4 
EBAFAGL2.01AL4E02BAFAGL2.F01L4E0 
2BAFAGL2.F01L4E02BAFAGFL4.EL101A 
" : FORX=1TO1000 : NEXT 
275 FORX=1TO1000 : NEXT 
280 CLS: PRINT: PRINT: PRINT"YOUR N 
AME IS JOSEPH BENJAMIN GUNN, 
AND YOU'RE A PRIVATE DETECT 

IVE. YOU WORK THE EAST SIDE O 
F SEEDY CITY. IT'S A ROUGHAND DI 
RTY JOB, BUT SOMEBODY HAS TO DO 
IT. BUT THAT'S OKAY, BECAUS 

E THIS IS YOUR CITY." 

285 PRINT"YOU MADE THE RULES, AN 
D YOU CAN BREAK THEM. ALL YOU NE 
ED IS A GOOD CASE, SOME HOT LE 
ADS, AND THE TOWN IS YOURS. YOU 
DON'T TAKE ANY GUFF FROM ANY 
ONE ! " 

290 EXEC44539 

295 CLS:PRINT:PRINT:PRINT"YOU HA 
VE JUST BEEN HIRED BY CLAUDI 

NE HUNTSDALE, A BEAUTIFUL,RICH D 
AME WHO WANTS YOU TO FIND THE MI 
LLION DOLLAR JADE NECKLACEWHICH 
WAS STOLEN FROM HER HOME ON RIC 
HMAN AVENUE." 

300 PRINT: PRINT"YOU HAVE A GOOD 


CLUE ALREADY. GEORGE HELMING, 
THE OWNER OF THEBLUE PARROT CLUB 
, AND WELL KNOWNFENCE, WAS SEEN 
ON RICHMAN AVENUE THE NIGHT 

OF THE THEFT." 



305 EXEC44539 

310 CLS: PRINT: PRINT: PRINT 

315 PRINT"YOU CAN TELL RIGHT AWA 

Y THAT THIS IS GOING TO BE ON 

E TOUGH CASE. NOT ONLY IS HELM 
ING INVOLVED, BUT YOU'VE H 

EARD RUMORS THAT SOMEONE HA 

S PUT A CONTRACT OUT ON YOU. O 
F COURSE IT HAS TO BE ONLY A RU 
MOR, FOR WHAT"? 

320 PRINT" HITMAN WOULD BE FOOLI 
SH ENOUGH TO TRY FOR YOU?!" 
325 EXEC44539 

3 30 CLS: PRINT"THE INSTRUCTIONS M 
AY BE A LITTLECONFUSING TO SOME, 
SO PLEASE READ THEM CAREFULL 
Y. " : FORX=1TO4000 : NEXT 
335 CLS:PRINT"THIS IS THE TOUGH 
PART. PLEASE READ CAREFULLY.":P 
RINT:PRINT"IN THIS GAME YOU MAY 
ASK THE CHARACTERS QUESTIONS. 
":PRINT:PRINT"TO DO THIS YOU mus 

t always TYPE [ASK -] FIRST. Y 

OU WILL THEN BE GIVEN THE GO AH 
EAD. " 

3 40 PRINT "AFTER THAT YOU MAY ASK 
YOUR QUESTION, SUCH AS [WHE 

RE -] OR[WHO -]. EXAMPLES OF 

THIS WILLFOLLOW." 

345 EXEC44539 

3 50 CLS: PRINT" LET'S SAY YOU RAN 
INTO A PERSON NAMED MAC, AND YOU 
WANTED TO ASKHIM WHERE THE MONE 

Y WAS, THIS ISWHAT YOU WOULD DO. 
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":PRINT 

355 PRINT"YOU [TYPE] 
SCREEN 


ASK MAC 
GO AHEAD 

AND ASK YOU [TYPE] WHERE MON 

EY SCREEN I DON'T K 

NOW WHERE IT IS. FI 

ND RALPH HE MAY KN 

OW. " 

3 60 PRINT:PRINT"REMEMBER TO alwa 

ys [ASK -] FIRST BEFORE eve 

ry QUESTION." 

365 EXEC44539 

37J3 CLS : PRINT "DO YOU UNDERSTAND 
THAT? IF NOT I'M SORRY, BUT I C 
AN'T EXPLAIN IT ANY CLEARER." 
375 PRINT"NOW, ON TO THE REST, W 
HICH IS SIMPLE." 

380 PRINT:PRINT"1) ALWAYS USE TW 
O WORD COMMANDS EXCEPT WHEN M 
OVING N,S,E,W,U, OR D, OR WHEN 
USING THE VERBS HELP OR INVEN 
TORY 2) ALWAYS PLACE 

THE VERB FIRST 3) THE SAME RULE 
S APPLY WHEN YOU ASK QUESTIONS 


EXCEPT WHEN M 
OR D, OR WHEN 
HELP OR INVEN 


385 PRINT"4) DO A LOT OF SNOOPIN 
G 5) REMEMBER YOU'RE A T 

OUGH GUY" 

390 EXEC44539 

395 CLS:PRINT"HERE IS A LIST OF 
THE VERBS.":PRINT:PRINT"HELP","A 
SK","EAT","WHO","INVENTORY","WHE 
RE","GET","KILL","DROP","SHOOT", 
"GIVE","LOAD","LOOK","INSERT","E 
XAMINE","UNLOCK","READ","OPEN"," 
MOVE","HIT","PUSH","KICK","PULL" 
,"BREAK","GO" 

400 EXEC44539 

405 CLS:PRINT"ONE LAST REMARK.": 
PRINT:PRINT"THE ENDING OF THIS G 
AME ISN'T NECESSARILY THE SAME 
EACH TIME IT IS PLAYED.":PRINT 
415 PRINT"NEED INSTRUCTIONS AGAI 
N (Y/N)?" 

420 EXEC44539 

425 IFINKEY$="Y"THEN330 

430 CLS:PRINT@102,"PLEASE WAIT W 

HILE":PRINT©173,"THE":PRINT0233, 

"PROFESSIONAL":PRINT0295,"IS BEI 

NG LOADED":CLOAD"PROFESNL" 


PROFESNL 


J3 POKE38 3,158 

1 CLS 

2 PRINT"JUST A SECOND" 

4 Z=RND(-TIMER) 

6 CLEAR5J3J3 

8 R=1: CA=J3: BL=7: CL=1: FL=J3: SL=J3: R 
L=J3: JEW=J3: B0X=J3: CR=J3: BD=j3: JB=j3 
1J3 DIM R (31,6) ,R$ (31) ,0(83) , 0$ (8 
3) 

2J3 DATA IN YOUR OFFICE, ON THE SI 
DEWALK,IN A MOVIE THEATER,IN A L 
AUNDRYMAT,IN A CHINESE RESTAURAN 
T,IN A DARK ALLEY,AT THE HARBOR, 
IN THE SHARK TOOTH INN,IN A DARK 
ENED WAREHOUSE,ON THE DECK OF A 
SHIP,IN THE BLUE PARROT CLUB,IN 
A PARKING LOT 

3J3 DATA IN THE PUBLIC PARK, IN AN 
OFFICE,IN A HALLWAY,IN A ROOM,I 
N A SMALL ROOM,IN AN EMPTY ROOM, 
IN AN OFFICE,IN A STATE CABIN,IN 
THE ENGINE ROOM,ON THE BRIDGE,I 
N AN OFFICE,IN A SMALL SECRET RO 
OM,ON THE SIDEWALK,ON THE SIDEWA 
LK,ON THE SIDEWALK 


31 DATA IN A HALLWAY,IN AN AUTO 
PARTS STORE,ON RICHMAN AVENUE,AT 
THE HUNTSDALE ESTATE 
35 F0RX=1T031:READR$(X):NEXT 
4J3 DATA DESK, 1, CHAIR, 1, FILE CABI 
NET,1,SAFE,1,GUN,1,CLIP,1,LIGHT 
POLE,2,MOVIE (MALTESE FALCON),3, 
CONCESSION STAND,3,WASHING MACHI 
NE,4,DRYER,4,MONEY CHANGER,4,GUM 
BALL MACHINE,4,CHEF FU CHANG WAN 
G,5,FORTUNE COOKIE,5,PEKING DUCK 
,5 

5J3 DATA TRASH CANS , 6, DUMPSTER, 6 , 
DOCKS,7,SHIP (THE MARY ANN),7,CU 
STOMERS,8,BARTENDER,8,BOXES,9,TR 
OLLEY, 9 , CRATES , 1J3 , ROPE, 1J3 , CUSTOM 
ERS,11,DANCERS (ON STAGE),11,WAI 
TRESS,11,YOUR CAR,12,JOGGER,13,K 
ID (ON MERRY-GO-ROUND),13,OLD LA 
DY, 13 

6J3 DATA MUGGER, 13, DESK, 14,GEORGE 
HELMING,14,GOONS (3),14,EXIT SI 
GN AT OTHER END,15,A GUY LAYING 
ON THE FLOOR DRUNK WHO LOOKS VER 
Y FAMILIAR TO YOU,16,VOLUPTUOUS 
BLONDE,17,TAPE RECORDER,18,DESK, 
19,SAFE,19,TONI SARDUCCI,19,BOOK 
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(MOBY DICK),20 

65 DATA HURRICANE LAMP,20,BED,20 
,DRESSER,20,BUTTONS,21,LEVERS,21 
,WIRES,21,ENGINE,21,COMPASS,2 2 , R 
ADAR,22,SWITCHES,22,KNOBS,2 2,DES 
K, 23,FILE CABINET,23,FOOTLOCKER, 

24,SEWER DRAIN,25,FIRE HYDRANT,2 
6,PHONE POLE,27,EXIT SIGN ABOVE 
EAST DOOR,28 

70 DATA PAPER,0,HITMAN,40,COINS, 
0,DOLLAR,0,BLUE KEY,0,GORILLAS ( 
3),0,RED KEY,0,JEWELRY,0,DIAMOND 
RINGS (2),0,PEARL CHOKER,0,GOLD 
WATCH,0,STATUETTE OF A BLACK BI 
RD,0,JADE NECKLACE,0,MATTRESS,0, 
STUFFING,0 

80 DATA TOOLS,29,PLUG WIRES,29,B 
RAKES,29,NOTHING,30,CLAUDINE HUN 
TSDALE,31 

81 F0RX=1T083:READ0$(X):READO(X) 

:0$=0$+LEFT$(0$(X),3):NEXT 

82 IFO(65)=40THENGOSUB220 

90 DATA 2,,,,,,3,1,26,25,,,,2,,, 

/// 2 7,,,,,,25,,,, ,7,26,,,,,10,6, 
8,9,,,,,6,7,15,, ,,7,23,, , ,7, , ,22 
,20,,,25,,14,,,,,27,,,27,,,,,,,1 
1////,17,16,28,,,8,15,,,,,,,15,, 

,,,, 28 ,,,,, 28 ,,,,,, 21 ,,,, 10,,,20 
//////////t r / 9 , 0 ,,,,, 23 , , ,, 5,3 
0 , 2 , 11 ,,, 6 , 29 , 27 , 2 , ,0 

91 DATA 4,13,12,26,,,18,19,6,15, 
//26,,,,,,25,31,,,,,30,,,,,0 

92 F0RX=1T031:F0RY=1T06:READR(X, 
Y):NEXT Y,X 

94 D$(1)="N ":D$(2)="S ":D$(3)=" 
E ":D$(4)="W ":D$(5)="U ":D$(6)= 

ii D " 

96 C$="INVGETDROLOOSHOLOAHITUNLO 
PEPUSPULINSASKEATHELBREMOVWHEWHO 
KILREAEXAGO GIVKIC" 

98 CLS 

100 IFR=28THENPRINT"YOU HEAR SOU 
NDS OF A STRUGGLE, AND THE SCRE 
AMS OF A WOMAN COM- ING FROM THE 

ROOM TO THE NORTHPRINT 

101 IFJB=3ANDR<15ANDO(76)=-lTHEN 
5060 

105 PRINT"YOU ARE ";:PRINTR$(R) 

107 IFO(65)=30THENO(82)=0 

108 IFJB=2ANDR=1THEN5100 

110 PRINT:PRINT"YOU SEE":F0RX=1T 
083:IFO(X)=R THENPRINTO$(X) 

111 NEXT 

112 IFR=18THENPRINT:PRINT"SUDDEN 
LY YOU REALIZE IT'S A TRAP":PRIN 
T:PRINT"UNFORTUNANTLY YOU'VE ALR 


EADY STEPPED INTO IT!":F0RX=1 
TO1000:NEXT:PRINT:PRINT"BEFORE Y 
OU HAVE TIME TO DO ANY- THING SO 
MEONE CLUBS YOU FROM BEHIND." 
:PLAY"T175V31B-" 

114 IFR=18THENFORX=1TO6500:NEXT: 
GOTO88 0 

120 PRINT:PRINT"VISIBLE EXITS AR 
E: " ?: F0RY=1T06 :1FR (R, Y) O0THENP 
RINTD$(Y)? 

121 NEXT 

122 GOSUB440 

123 IFO(65)=R THEN130 

124 IFR=7THENGOSUB215:IFZ<25THEN 
FORX=1T0500:NEXT:CLS:PRINT"ONE O 
F YOUR ENEMIES, YOU DON'T KNOW 
WHICH, SEEING HOW THEY CAMEUP FR 
OM BEHIND YOU, HIT YOU IN THE H 
EAD.":PLAY"L17 5 V31B-":GOTO12 5 ELS 
E130 

125 IFR=7THENPRINT"THEN THEY TOS 
SED YOU IN THE BAY.":FORX=1TO250 
0:NEXT:PRINT"FORTUNANTLY YOU CAM 
E TO BEFORE DROWNING, AND ARE N 
OW RECOVERINGIN YOUR OFFICE.":R= 
1: IFO(7 6)=-lTHENO(76)=0:O(44)=0: 
0 ( 20 )= 0 : R ( 7 , 1)=0 

127 IFR=6THENGOSUB215:IFZ<35THEN 
PLAY"L175V31B-":CLS(0):F0RX=1T05 
00:NEXT:PRINT"A HIRED THUG JUMPS 
OUT FROM BEHIND THE DUMPSTE 

R AND KNOCKS YOU OUT.":F0RX=1T0 
3000:NEXT:CLS:PRINT"YOU ARE NOW 
RECOVERING.":PRINT:R=1:GOTO100 

130 PRINT0448,""?:INPUT"WHAT DO 
YOU DO" ?A$: PRINT :B$='"' 

131 CLS:IFA$=""GOTO100 
135 IFLEN(A$)=1THEN2000 
140 F0RX=1T0LEN(A$) 

145 IFMID$(A$,X,1)=" "ANDLEN(A$) 
>X+1THENB$=MID$(A$,X+l,3) 

150 NEXT 

155 A$=LEFT$(A$,3) 

160 IFB$="CAB"THENB$="FIL" 

164 IFB$="FU"ORB$="WAN"THENB$="C 
HE" 

166 IFB$="COO"THENB$="FOR" 

168 IFB$="DUC"THENB$="PEK" 

170 IFB$="CAN"THENB$="TRA" 

172 IFB$="DRA"THENB$="SEW" 

174 IFB$="HYD"THENB$="FIR" 

176 IFB$="SIG"THENB$="EXI" 

178 IFB$="RIN"THENB$="DIA" 

180 IFB$="CHO"THENB$="PEA" 

182 IFB$="WAT"THENB$="GOL" 

184 IFB$="BLA"ORB$="BIR"ORB$="FA 
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L"THENB$="STA" 

186 IFB$="NEC"THENB$="JAD" 

190 IFB$="CAR"THENB$="YOU" 

192 IFB$="LAD"THENB$="OLD" 

194 IFB$="HEL"THENB$="GEO" 

196 IFB$="BLO"THENB$="VOL" 

198 IFB$="SAR"THENB$="TON" 

200 IFB$="LAM"THENB$="HUR" 

202 IFB$="GUY"ORB$="MAY"THENB$=" 
A G" 

204 IFB$="HUN"THENB$="CLA" 

206 IFB$="BOD"THENB$="DEA" 

210 GOTO500 

215 Z=RND(100):RETURN 

22)3 Z=RND (31) 



221 IFZ=10RZ=140RZ=160RZ=170RZ=1 
80RZ=190RZ=2)30RZ=210RZ=220RZ=230 
RZ=240RZ=31THEN22)3 

222 O(65)=Z:RETURN 

23)3 IF0=160R0=790R0=8)30R0=81THEN 
PRINT"YOU CAN'T AFFORD THAT!":PR 
INT:G0T01)3)3 

232 IFR=4ANDO(68)=4ANDB$="KEY"TH 
ENPRINT"TAKEN":PRINT:0(68)=-l:GO 
T01)3)3 

234 IFR=2)3ANDO (7)3) =2)3ANDB$="KEY" 
THENO (7)3) =-l: PRINT"TAKEN" : PRINT: 
G0T01)3)3 
236 RETURN 

25)3 IFZ<35THENPRINT"YOU MISSED": 
PRINT:BL=BL-1:ELSEPRINT"YOU KILL 
ED HELMING.":PRINT:BL=BL-1 

251 IFZ>35THENO(36)=0 

252 GOSUB215 : IFO (37) =)3THEN1)3)3ELS 
EGOSUB4)35)3 : GOSUB4)35)3 : GOSUB4)35)3 :1 
FZ<5)3THENPRINT"THE GOONS MISSED 
YOU. " : PRINT: G0T01)3)3ELSEPRINT"UNF 
ORTUNATELY HIS GOONS TURNED YOU 

INTO SWISS CHEESE. ":GOSUB43)3: GO 
T01)31)3 


26) 3 IFZ<5)3ANDBL>=3THENGOSUB4)35)3: 
GOSUB4)35)3 : GOSUB4)35)3 : PRINT" YOU KI 
LLED THE THREE GOONS.":PRINT:BL= 
BL-3 : ELSEGOSUB4)35)3 : GOSUB4050 : GOS 
UB4)35)3: PRINT"YOU MISSED.": PRINT: 
BL=BL-3 

261 IFZ<5)3THENO (37) =)3 : G0T01)3)3 

262 GOSUB215 : GOSUB4)35)3 : GOSUB4)35)3 
:GOSUB4)35)3: IFZ<5)3THENPRINT"THE G 
OONS MISSED YOU.":PRINTELSEPRINT 
"THE GOONS KILLED YOU. " : GOSUB43)3 
:G0T01)31)3 

263 G0T01)3)3 

27) 3 IFZ<33THENPRINT"YOU MISSED." 

:PRINT 

271 IFZ>33ANDZ<66THENPRINT"YOU W 
OUNDED HIM BAD! HE'S READY TO TE 
LL YOU ANYTHING!":PRINT:TS=1:SL= 
1 

272 IFZ>66THENPRINT"YOUR AIM WAS 
GOOD, AND HE FALLS OVER DEAD.": 

PRINT:0(44)=0 

273 BL=BL-1 

274 IFZ<33THENGOSUB4)35)3 : GOSUB215 
: IFZ<5)3THENPRINT"HIS AIM WAS BET 
TER THAN YOURS. YOU'RE NOW DEAD 
." :G0SUB43)3:G0T01)31)3ELSEPRINT"SA 
RDUCCI MISSED YOU.":PRINT 

275 G0T01)3)3 

280 IFZ<3)3THENPRINT"YOU KILLED T 
HE HITMAN, BUT NOW YOU CAN'T AS 
K HIM WHO HIRED HIM.":BL=BL-1:0( 
65)=0:GOTO100ELSEPRINT"YOU MISSE 
D. ..":PRINT:GOTO100 
400 IFO=63THENPRINT"IT'S NAILED 
TO THE WALL.":PRINT 
402 IFO=12ORO=13THEN1000 
404 IFO=26THENPRINT"IT'S TIED TO 
THE MAST.":PRINT 
410 GOTO100 

420 PRINT"OKAY, YOU'RE IN YOUR C 
AR. ":FORX=1T02000:NEXT:PRINT:PRI 
NT"BUT WAIT...":PRINT:FORX=1TO10 
00:NEXT:PRINT"IT'S NOT STARTING. 
":FORX=1T02000:NEXT:PRINT:PRINT" 
AFTER GETTING OUT AND LOOKING 
UNDER THE HOOD YOU FIND THAT 
SOMEONE HAS STOLEN ALL"? 

422 PRINT" YOUR PLUG WIRES!" 

:FORX=1TO3000:NEXT:0(69)=0:GOTOl 
30 

430 PRINT: PRINT: PRINT"ALL YOUR F 
RIENDS ATTENDED YOUR FUNERAL.": 
PLAY"V15T303P4L2CL3CL8CL2CE-L8DL 
3DL8CL3C02L8B03L2CP2":RETURN 
440 IFO(65)=R THENGOSUB215ELSERE 
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TURN 

442 IFZ<50THENFORX=1TO1000:NEXT: 
GOSUB4050:PRINT:PRINT:PRINT"THE 
HITMAN TOOK A SHOT AT YOU."ELSER 
ETURN 

444 GOSUB215:1F Z > 3 5THENPRINT"FOR 
TUNANTLY HE MISSED YOUPRINT:R 
ETURNELSECLS:PRINT"THE HITMAN TO 
OK A SHOT AT YOUPRINT:PRINT"B 
EING THE EXPERT THAT HE IS HE Q 
UICKLY EXECUTES HIS CONTRACT.":F 
0RX=1T01000 : NEXT:GOSUB430:GOTO10 
10 

450 IFR=9THENPRINT"WITH WHAT"?:I 
NPUTZ$ 

452 IFO(70)=-lANDLEFT$(Z$,3)="RE 

D"THENPRINT"OKAY, IT'S OPEN.":RE 

TURNELSE100 

460 IFO=23THENBOX=l 

462 IFO=25THENCR=l 

464 RETURN 

470 IFO=23ANDB0X=1THENPRINT"IT'S 
EMPTY.":PRINT:GOTO100 
472 IF0=25ANDCR=1THENPRINT"Y0U F 
IND A DEAD BODY!PRINT:GOTO100 
474 RETURN 
500 C=0 

510 FORX=lTOLEN(C$)STEP3:IFMID$( 
C$,X ,3)=A$THENC=(X+2)/3 
520 NEXT:FORX=lTOLEN(0$)STEP3:IF 
MID$(0$,X,3)=B$THENO=(X+2)/3 
525 NEXT 

527 IFC<1THEN3500 

530 0NC-1G0T0 550,560,570,650,68 

0,690,710,710,730,730,740,750,77 

0,780,790,730,810,820,650,570,57 

0,555,560,830 

540 PRINT"YOU ARE CARRYING THE F 
OLLOWING":PRINT:F0RX=1T078:IFO(X 
)=-lTHENPRINTO$(X) 

542 NEXT 
545 GOTO130 

550 IFCA>7THENPRINT"YOU CAN'T CA 
RRY ANYMORE!":GOTO100 

551 IFB$="DES"ORB$="CHA"ORB$="FI 
L"ORB$="SAF"THEN556 

552 GOSUB2 30 : IFO (0) OR THENPRINT 
"IT'S NOT HERE.":GOTO100 

553 IF0=630R0=120R0=130R0=26THEN 
400 

554 IF0=50R0=60R0=150R0=450R0=46 
0R0=6 4 0R0=6 6 0R0=6 7 0R0=6 8 0R0=70OR 
0= 710R0=72 0R0=73 0R0=7 4 0R0=750R0= 
7 6THENGOSUB402 0:PRINT"TAKEN":GOT 
0558 

555 IFO=30THENGOSUB215:IFZ>50THE 


NPRINT"BEFORE YOU REACH YOUR CAR 
THREE GORILLAS SURROUND Y0U.":0 
(69)=R:PRINT:GOTO100ELSEIFZ<50TH 
EN420 

556 PRINT"YOU CAN'T TAKE THAT!": 
GOTO100 

558 CA=CA+1:0(0)=-l:PRINT:GOTO10 

560 IFO (0) O-ITHENPRINT" YOU DON' 
T HAVE IT.":GOTO100 

561 IF0=7 6ANDR=31THEN5000 

562 0(0)=R:CA=CA-1:GOTO100 

570 IFB$=""THEN100 

571 IFB$="DES"ANDR=1ANDJB=2THEN5 
100ELSEIFB$="CLO"ORB$="CUS"ORB$= 
"DES"ORB$="FIL"ORB$="SAF"ORB$="C 
HA"THENPRINT"NO CLUES THERE.":GO 
T0642 

572 IFB$="DEA"THENPRINT"YEP, HE' 
S DEAD ALRIGHT!":G0T0642 

573 IFO(O)=R ORO(O)=-lTHEN574ELS 
EPRINT"I DON'T SEE IT HERE.":GOT 
0642 

574 IF0=5THENPRINT"IT'S A COLT . 
45 AUTOMATIC.":GOTO 642 

576 IF0=6THENPRINT"IT'S A GUN CL 
IP WITH 7 BULLETS.":G0T064 2 

578 IF0=8THENPRINT"IF YOU STAY F 
OR THE MOVIE YOU'LLPROBABLY BLOW 

THE CASE!":G0T0642 

579 IF0=12THENPRINT"IT SAYS INSE 
RT DOLLAR FOR COINS.":G0T0642 

580 IF0=13THENPRINT"IT'S FULL OF 
GUMBALLS.":G0T0642 

582 IF0=14THENPRINT"HE'S CHINESE 
.":G0T0642 

584 IFO=15ANDR=5THENPRINT"THE SI 
GN BY IT SAYS 'HAVE 0NE'.":G0T06 
42 

586 IF0=16THENPRINT"IT'S GOLDEN 

BROWN AND LOOKS DELICIOUS.": 

G0T0642 

587 IF0=18AND0(5)=0THENPRINT"YOU 
FOUND YOUR GUN INSIDE!":O(5)=6: 

G0T0642 

588 IFO=20THENPRINT"IT'S A CABIN 
CRUISER.":G0T0642 

589 GOSUB470 

590 IF0=230R0=25THENPRINT"THE LA 
BEL SAYS 'FRAGILE'.":GOTO 642 

592 IFO=26THENPRINT"DOESN'T LOOK 
LIKE IT CAN BE UNTIED.":GOT 

0642 

594 IFO=28THENPRINT"THEY'RE DANC 

ING WILDLY.":G0T0642 

596 IFO=29ANDJB<>1THENPRINT"SHE' 
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S QUITE A LOOKER.":G0T0642ELSEIF 
0=29ANDJB=1AND0 (76) O-ITHENPRINT 
"SAY...THAT NECKLACE SHE'S WEAR¬ 
ING LOOKS MIGHTY FAMILIAR.0(7 
6)=11:G0T0642 

598 IFO=30THENPRINT"IT'S A RUSTE 
D, DENTED, 1963 RAMBLER.":GO 

T0642 

600 IF0=31THENPRINT"SHE'S A SEXY 
REDHEAD.":G0T0642 
6j32 IFO=33ANDO (34) =R THENPRINT"S 
HE'S SCARED!":G0T0642:ELSEIF0=33 
THENPRINT"SHE LOOKS LIKE SHE'S A 
HUNDRED.":G0T0642 

604 IFO=34THENPRINT"HE'S MUGGING 
THE OLD LADY!":G0T0642 

6 05 IFO=36THENPRINT"HE LOOKS SUS 
PICIOUSLY NICE.":G0T0642 

606 IFO=37THENPRINT"THEY LOOK DA 
NGEROUS!":GOTO642 

608 IF0=39ANDR=16ANDJB=3THEN5J35J3 
ELSEIFO=39ANDR=16THENPRINT"BY GO 
LLY! IT'S THE MAYOR!!":G0T0642 
610 IFO=40THENPRINT"SHE'S VERY B 
EAUTIFUL.":G0T0642 

612 IFO=44THENPRINT"HE HAS WEASE 
L EYES.":G0T0642 

613 IFO=45THENPRINT"THE PAGES AR 
E MYSTERIOUSLY BLANK":G0T0642 

614 IF0=46THENPRINT"IT'S OUT OF 
OIL.":G0T0642 

616 IFO=47THENO(77) =20: PRINT"IT' 
S AN OLD BED. SOME OF THE SPR 

INGS ARE MISSING, AND THE MAT 

TRESS IS TORN.":G0T0642 
618 IFO=48THENPRINT"IT'S FULL OF 
CLOTHES.":G0T0642 
62j3 IFO=59THEN85j3 
622 IFO=64THENPRINT"IT SAYS 'FOR 
TUNE COMES TO THOSE ABOUT TO TAK 
E LONG VOYAGE'.":G0T0642 
624 IFO=65THENPRINT"HE LOOKS LIK 
E AN EXPERT.":G0T0642 
626 IF0=680R0=7j3THENPRINT"LOOKS 
IMPORTANT.":GOTO642 
628 IFO=69THENPRINT"THEY LOOK ST 
UPID, BUT TOUGH.":G0T0642 
63 0 IF0=71THEN0(72)=R:0(73)=R:O( 
7 4)=R:0(71) =0 : GOTO100 
632 IFO=75THENPRINT"IT'S A FALCO 
N.":G0T0642 

634 IF0=76THENPRINT"THIS IS THE 
ONE!!!!!":G0T0642 
636 IF0=77THEN0(78)=2 0: PRINT"IT' 
S FULL OF STUFFING.":G0T0642 
638 IFO=78THENO {10)=20: PRINT"YOU 


FOUND SOMETHING!":GOTO642 

639 IFO=83THENPRINT"SHE'S ANXIOU 
SLY AWAITING THE RETURN OF HE 
R NECKLACE.":G0T0642 

640 PRINT"NOTHING OF INTEREST." 
642 PRINT:G0T01 00 

650 IFO (5) O-ITHENPRINT"YOU DON' 
T HAVE YOUR GUN WITH Y0U":G0T067 
4 

652 IFBL<1THENPRINT"YOU'RE OUT O 
F BULLETS. YOU NEED TO RELOAD.": 
GOTO674 

654 IFB$="LOC"ORB$="SAF"THENPRIN 
T"THE GUN JAMMED. ":G0T01J3J3 

656 IFO (0) OR THEN672 

657 IF0=130R0=140R0=210R0=220R0= 
2 7 0R0=280R0=290R0=310R0= 3 2 0R0=3 3 
ORO=40ORO=8 3THENGOSUB4j35j3: PRINT" 
THAT WAS A STUPID THING TO DO!": 
GOTO1000 

658 IFO=59THENGOSUB4j35j3: PRINT"AF 
TER SHOOTING THE LOCK THE LID SP 
RINGS OPEN.":FL=1:G0T0674 

659 IFO=39THENGOSUB4p5j3:PRINT"NO 
W YOU DID IT! YOU JUST SHOT TH 
E MAYOR! ! " : G0T01j3j3j3 

660 IFO=34THENO (67 ) =13 : GOSUB4j35j3 
:PRINT"THE OLD LADY IS GRATEFUL 
AND WISHES TO GIVE YOU A REWA 
RD.":BL=BL-1:0(3 4) =0: G0T0674 

662 IF0=3 6THENGOSUB4)35j3 : GOSUB215 
: G0T025j3 

664 IFO=37THENGOSUB215:GOTO2 6$ 
666 IFO=44THENGOSUB4j35j3: GOSUB215 
:G0T02 7j3 

668 IFO=69THENPRINT"BEFORE YOU C 
AN DRAW YOUR GUN THETHREE GORILL 
AS JUMP YOU. THEY BEAT YOU UNT 
IL YOU RESEMBLE GUACAMOLE, T 

HEN STUFF YOU UNDER YOUR CAR.":0 
(69)=0: G0T0674 

67j3 IFO=65THENGOSUB405j3:GOSUB215 
: G0T028j3 

672 GOSUB4j35p:PRINT"YOU JUST WAS 

TED A SHOT.":BL=BL-1 

674 PRINT :G0T01j3j3 

650 IFO (5) O-ITHENPRINT"YOU DON' 

T HAVE YOUR GUN.":GOTO689 

682 IFO ( 6) O-ITHENPRINT"YOU DON' 

T HAVE A SPARE CLIP.":G0T0689 

684 IFBL>j3THENPRINT"Y0U DON'T NE 

ED TO LOAD THE GUN. YOU STILL HA 

VE"?BL?"BULLET"?:IFBL>1THENPRINT 

"S":PRINT:G0T0689 

686 IFCL=j3THENPRINT"Y0U CAN'T LO 

AD THE GUN. YOU'RE OUT OF SPARE 
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CLIPS.PRINT:G0T0689 

688 BL=7 :0 ( 6) =j3 : CL=CL-1: PRINT" YO 
UR GUN IS LOADED AGAIN" 

689 PRINT:G0T01j3j3 

69J3 IFB$="DES"ORB$="FIL"ORB$="SA 
F " ORO=l 8 0R0=3J3 THENPRINT" YOU INJU 
RIED YOURSELF. AS IN BROKEN B 
ONES. YOU'LL HAVE TO START TH 
E CASE AGAIN...AFTER YOULEAVE TH 
E HOSPITAL. ":G0T01j31j3 

691 IFB$="DOO"ANDR=28THENPRINT"Y 
OU BUSTED THE DOOR IN!":BD=1:PRI 
NT: G0T01J3J3ELSEIFB$="D00"ANDR<>28 
THENPRINT"YOU BROKE SOME BONES T 
RYING TO BREAK THE DOOR. YOU'LL 

HAVE TO START THE CASE AGAIN.. 
.AFTER YOULEAVE THE HOSPITAL.":G 
0T01J31J3 

692 IFO=14THENPRINT"HE LEAVES, T 
AKING THE DUCK WITH HIM."SO(14)= 
J3 : 0 (16) =J3 : G0T07J39 

694 IFO=22THENPRINT"HE PUNCHES Y 
OU IN THE NOSE.":G0T07p9 
696 IFO=28ORO=29ORO=310R0=33ORO= 
4J3THENPRINT"SHE KICKS YOU AND YE 
LLS FOR THE POLICE G0T01j3j3j3 
698 IFO=32THENPRINT"SHE STARTS T 
O CRY, AND YELLS FORTHE POLICE!" 

: G0T01J3J3J3 

7J3J3 I FO= 3 9 THENPRINT "THE GUY PASS 
ES OUT. " : O ( 39 ) =J3 : G0T07J39 
7J32 IF0=440R0=65THENG0SUB4J35J3:PR 
INT"HE QUICKLY DRAWS HIS GUN AND 
CREATES A HOLE IN THE CENTER 
OF YOUR FOREHEAD! ":F0RX=lT05j3j3: 
NEXT: GOSUB4 3 J3 : GOTO lj3 lj3 
7J34 IF0=3 60R0=3 7THENPRINT"THE TH 
REE GOONS GRAB YOU AND POUND 
YOU INTO THE FLOOR! YOU'LLHAVE T 
O START THE CASE AGAIN WHEN Y 
OU'RE OUT OF THE HOSPITAL.GOTO 
1J31J3 

7J36 IFO=69THENPRINT"THEY BEAT YO 
U TO WITHIN AN INCH OF YOUR LIFE 
THEN WARN YOU TO QUIT THE CAS 
E! " : O (69 ) =J3 : G0T07J39 
7J38 IFO=3 4THENGOSUB4J35J3 : PRINT"HE 
QUICKLY PULLS A GUN AND SH 

OOTS YOU, THEN TAKES THE OLD LA 
DY ' S PURSE. " : F0RX=1T05J3J3 : NEXT: GO 
SUB43J3 : G0T01J31J3 
7j39 PRINT :G0T01j3j3 
71J3 IF (R=19ANDSL= 1ANDB$="SAF" ) TH 
ENPRINT"WOW! LOOK AT ALL OF THIS 
!":O(71)=R:O(7 5)=R:G0T07 2 2 
711 IFR=1ANDB$="SAF"THENPRINT"YO 


U FORGOT THE COMBINATION":PRINT: 
G0T01J3J3ELSEIF (R=1ANDB$="FIL"0RR= 
1ANDB$="DES")THENPRINT"IT'S EMPT 
Y.":G0T0722 

712 IFR=9ANDB$="DOO"THEN713ELSEG 
OSUB4 6J3: IF0=1J30R0=110R0=170R0=18 
ORO=2 30R0=2 5THENPRINT"OKAY, IT'S 

OPEN.":G0T07 2 2 

713 IFR=9AND(0(7J3)=-10R0(68)=-1) 
THENGOSUB4 5 J3 : RL=1: GOTO1J30 

714 IF0=120R0=13THENPRINT"THAT'S 
ILLEGAL! " : G0T01j3j3j3 

715 IFO=45THEN613 

716 IFO=15THENPRINT"THERE'S A PE 
ICE OF PAPER IN IT.":O(64)=R:GOT 
0722 

717 IFO=48THEN618 

718 IF0=59THENPRINT"YOU DON'T HA 
VE A KEY TO FIT IT.":G0T0722 

72j3 PRINT"YOU CAN'T OPEN THAT." 

722 PRINTIG0T01J3J3 

73J3 IFR=2 3ANDB$="FIL"THENPRINT"T 

HERE IS A PASSAGEWAY BEHIND IT." 

:R(2 3,4)=2 4:G0T07 3 6 

732 IF0=490R0=5J30R0=550R0=56THEN 

PRINT"NOTHING SEEMED TO HAVE HAP 

PENED":G0T073 6 

734 PRINT"YOU CAN'T DO THAT!" 

736 PRINTIG0T01J3J3 

74J3 IFO ( 67 ) =- 1ANDR=4THENPRINT"YO 
U PUT THE DOLLAR IN THE CH 

ANGER AND GOT SOME COINSO(67) 
=J3 :0 (66) =R: G0T074 6 
742 IFO (66) =-lANDO (68) =J3ANDR=4TH 
ENPRINT"YOU PUT A COIN IN THE GU 
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MBALL MACHINE, AND A KEY DROPP 
ED OUT . " : 0 (68) =R:0 (6 6) =j3: PRINT: G 
0T0746 

744 IFR=4THENPRINT M YOU HAVE NOTH 

ING TO PUT IN THE MACHINESPR 

INT: G0T01j3j3ELSEPRINT" THERE IS NO 

THING TO INSERT ANY- THING INTO. 

":G0T0746 

746 PRINT:G0T01j3j3 

75J3 IFO(0) OR THENPRINT"I DON'T 

SEE THAT PERSON.":G0T0764 

752 IF0=14THENPRINT"HE DOESN'T S 

PEAK ENGLISH.":G0T0764 

754 IFO=22THENPRINT"HE JUST SNEE 

RS AT YOU.":G0T0764 

756 IF0=31THENPRINT"SHE KEEPS ON 
JOGGING PAST YOU.":G0T0764 

757 IFB$="CUS"0R0=280R0=320R0=33 
0R0=340R0=4j3THENPRINT"MUCH TOO B 
USY TO TALK.":G0T07 6 4 

758 IF0=290R0=360R0=370R0=440R0= 
69THEN15J3J3 

759 IFO=39THENPRINT"HE'S MUCH TO 
O DRUNK TO TALK."IG0T0764 

76J3 IFO=65THENPRINT"HE DOESN'T W 

ANT TO TALK TO YOU, AND DRAWS HI 

S GUN.":G0T07 6 4 

762 G0T0734 

764 PRINT:G0T01j3j3 

77J3 IFO (0) <>ROROO-1THENPRINT"I 

DON'T SEE IT HERE.":G0T0776 

771 IF0=150R0=16THEN772ELSEPRINT 
"YOU CAN'T EAT THAT! " : G0T01j3j3 

772 IF0=160R0(15)=R THENPRINT"YO 
U DON'T HAVE IT.":G0T0776 

774 IFO (64) =J3THENPRINT"THE COOKI 

E TASTES LIKE PAPER. " : O (15) =j3: GO 

T0776ELSEPRINT"IT WAS VERY GOOD. 

" : O (15) =J3 : G0T077 6 

776 PRINT:G0T01j3j3 

78J3 PRINT"YOU ' RE A CHEAP DETECTI 

VE, AND CAN'T AFFORD TO HIRE A 

NY HELP!": PRINT: G0T01j3j3 

79J3 IF0=15THEN716 

791 IFB$="DOO"THEN691 

792 IF0=120R0=13THEN714 

793 IFB$="DES"ORB$="FIL"ORB$="SA 
F"THEN69J3 

794 PRINT"IT'S NO USE GETTING VI 
OLENTI " : PRINT: G0T01j3j3 

81J3 GOSUB215: IFAB=1ANDR=14AND0=7 
6ANDZ<5J3THENPRINT"Y0U LOOK LIKE 
SOMEONE I CAN TRUST. I DON'T 

KNOW WHERE IT IS,BUT TONI SARDU 
CCI IS ABOUT TO LEAVE TOWN, YO 
U MIGHT ASK HIM.PRINT:BA=1:GOT 


01J3J3 

812 IFAB=1ANDR=14AND0=44ANDBA=1T 
HENPRINT"I DON'T KNOW WHERE HE'S 
AT. I JUST HEARD HE WAS LEAVI 
NG. " : PRINT: G0T01 j3j3 

814 IFR=19ANDTS=1THENPRINT"I DON 

'T HAVE IT, AND IF YOU DON'T 

BELIEVE ME CHECK MY SAFE!":PRIN 
T: G0T01J3J3 

815 IFR=11AND0=36THENPRINT"HE'S 
IN HIS OFFICE.": PRINT: G0T01j3j3 

816 IFR=11ANDB$="0FF"THENPRINT"T 
HE SAME PLACE IT'S ALWAYS BEEN.U 
PSTAIRS. (SHE POINTS TO THE S 
TAIRWAY) " : PRINT: G0T01j3j3 

819 PRINT"I DON'T KNOW.":PRINT:G 
0T01J3J3 

82J3 G0SUB215 :1FR= 14 ANDO= 4 4 THENPR 
INT"HE'S THE OWNER OF A SLEEZY I 
NN BY THE HARBOR.": PRINT: G0T01j3 

P 

821 IFR=11AND0=3 6THENPRINT"HE'S 
THE OWNER OF THIS PLACE.":PRINT: 
G0T01J3J3 

822 IFR=12AND(B$="B0S"0RB$="HIR" 
ORB$="SEN")THENPRINT"PETER PAN!" 

: PRINT :G0T01j3j3 

824 GOTO819 

83J3 IFB$="DOO"THEN691 

831 IFO=59THENPRINT"YYEEEOOOOWWW 
WI ! ! I ! " : PRINT: G0T01J3J3 

832 GOTO69J3 

85J3 IFFL=J3THENPRINT"IT ' S A BLACK 
SEA CHEST.": PRINT: G0T01j3j3 
852 IFFL=1AND0 (2 J3) =7THENPRINT"C0 
ULD THIS BE IT?!":PRINT:O(76)=R: 
G0T01j3j3ELSEPRINT" THERE ' S A NOTE 
SAYING 'TOUGH LUCK, GUNN. I'V 
E LEFT FOR TAHITIAND TAKEN THE N 
ECKLACE WITH ME I "' : PRINT: G0T01j3j3 
ELSEIFJB=1THENPRINT:PRINT:PRINT: 
END 

88J3 F0RX=1T05J3J3 : NEXT: CLSJ3 : F0RX=1 
T01J3J3J3 : NEXT: PRINT"WHEN YOU AWAKE 
N YOU FIND YOURSELF IN YO 

UR TOTALLY SEARCHED AND D 

ESTROYED OFFICE. YOU DON'T KNOW 
HOW MUCH TIME HASELAPSED.":0(5) 
=J3:0(76)=J3:0(2J3)=J3:0(44)=J3:R(7,1 

)=P- R=1 

882 GOSUB215:IFZ<26THENJB=1ELSEI 
F(Z>25ANDZ<51)THENJB=2ELSEIF(Z>5 
J3ANDZ<76) THENJB=3ELSE JB=4 
884 GOTO 13J3 

1J3J3J3 PRINT "THE POLICE COME AND A 
RREST YOU!":PRINT:PRINT:PRINT"TR 
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Y AGAIN...":PRINT"WHEN YOU GET O 
UT OF JAIL." 

1010 FORX=1TO3000 : NEXT: SCREEN1,1 
: FORX=1TO3000 : NEXT: GOTO5200 

1500 PRINT"GO AHEAD AND ASK YOUR 
QUESTION.":PRINT:IFO=3 6THENAB=1 

1501 GOTO100 
2000 U$ = »NSEWUD" 

2010 Y=0 

2020 FORX=lTOLEN(U$) :IFA$=MID$(U 
$ , X, 1)THENY=X 

2030 NEXT : IFY=0THENC=0 : GOTO3500 
2040 ONY-1GOTO 2070,2090,3010,30 
30,3050 

2045 IFR= 28ANDBD=0THENPRINT"THE 
DOOR IS LOCKED!":PRINTIGOTO100 

2046 IFR=16THENO(39)=16 

2050 IFR(R,1)<>0THENR=R(R,1)ELSE 

GOTO3550 

2060 GOTO100 

2070 IFR(R,2)<>0THENR=R(R,2)ELSE 
3550 

2080 GOTO100 

2090 IFR(R,3)<>0THENR=R(R,3)ELSE 
3550 

3000 GOTO100 

3010 IFR=9ANDRL=0THENPRINT"THE D 
OOR IS LOCKED.":PRINTIGOTO100 
3015 IFR(R,4)<>0THENR=R(R,4)ELSE 
3550 

3020 GOTO100 

3030 IFR(R,5)<>0THENR=R(R,5)ELSE 
3550 

3040 GOTO100 

3050 IFR(R,6)<>0THENR=R(R,6)ELSE 
3550 

3060 GOTO100 

3500 PRINT"I DON'T UNDERSTAND WH 
AT YOU MEAN":PRINT:GOTO100 
3550 PRINT"YOU JUST WALKED INTO 
A WALL":PRINT:GOTO100 
4020 IF0=710R0=720R0=730R0=74THE 
NJEW=1:RETURN 

4022 IFO=76ANDR=11ANDJB=1THENPRI 
NT"WHEN YOU TRIED TO GET THE NEC 
K- LACE THE WAITRESS PUT UP A 
SURPRISINGLY, INCREDIBLY SKIL 
LEDFIGHT. YOU FINALLY MANAGED TO 
SUBDUE HER, BUT NOT BEFORE 
HAVING TO TAKE DRASTIC STEPS" 
:PRINT 

4024 IFO=7 6ANDR=11ANDJB=1THENPRI 
NT"YOU GOT THE JADE NECKLACE!":0 
(76)=-l:GOTO130 
4026 RETURN 

4050 PLAY"L255V3101ADCFBAGEDV16A 


CGADV4EABCAEDB":RETURN 
5000 PRINT"CLAUDINE HUNTSDALE GI 
VES YOU A 20,000 DOLLAR BONUS F 
OR A JOB WELL DONE!":GOSUB5010 
:PLAY"V3102T6L4GAB03DCCEDDGF#GD0 
2BGAG03CDEDC02BABGF#GADF#A03C02B 
ABGAB03DCCEDDGF#GD02BGABE03DC02B 
AGDGF#L2.GP1":SCREEN1,1:FORX=lTO 
3000:NEXT:GOTO5200 
5010 IFJEW=1THENFORX=1TO3000:NEX 
T:PRINT:PRINT"THE JEWELRY YOU 'C 
ONFISCATED' FROM TONI SARDUCCI 
YOU TOOK TO HAVE ESTIMATED.": F 
ORX=1TO3000:NEXT:PRINT:PRINT"THE 
JEWELER SAYS IT'S WORTH 75, 

000 DOLLARS!!!":RETURN:ELSERETUR 
N 

5050 PRINT"THE MAYOR IS PUTTING 
A NECKLACE IN HIS POCKET.":O(76) 
=R:PRINT:GOTO100 

5060 PRINT"THE POLICE COME AND A 
RREST YOU FOR STEALING FROM THE 
MAYOR!!":PRINT:PRINT:PRINT"TRY 
AGAIN...":PRINT"WHEN YOU GET OUT 
OF JAIL!":PRINT:GOTO1010 
5100 PRINT:PRINT"HOLD IT, WHAT I 
S THIS?":PRINT"HOW'D THE JADE NE 
CKLACE GET ON YOUR DESK?":FORX= 
1TO2000:NEXT:PRINT:PRINT"SUDDENL 
Y THE DOOR BURSTS OPEN AND THE 
POLICE RUSH IN FOLLOWED BY CLAU 
DINE HUNTSDALE." 

5102 PRINT"THEY ARREST YOU FOR S 
TEALING THENECKLACE!!":PRINT:PRI 
NT"YOU SUDDENLY REALIZE THAT YOU 
'VEBEEN ELABORATELY FRAMED!":FOR 
X=1TO5000:NEXT:GOTO1010 
5200 CLS:PRINT"CREATED AND WRITT 
EN BY FRANKLIN MARRS II 

2601 ANDY DR. 
COLUMBIA, MO. 652 

02" 

5202 PRINT:PRINT"TITLE SCREEN BY 
GARY LEWIS" 

5204 PRINT:PRINT"TITLE AND END S 
CREEN DONE BY USING TECHNIQUE 
OF FRED SCERBO JAN. 85 RAINBOW 

ii 

5206 PRINT:PRINT"TITLE AND OTHER 
HELPFUL IDEAS BYGARY LUEBBERT" 
5208 PRINT:PRINT"THANKS GUYS":EX 
EC4453 9: RUN /R\ 
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Program by Ann B. Mayeux 


Y 


our first semester as a college freshman (Class 
of 1992) has not exactly been a bowl of cherries: 
100 miles away from home with no wheels, up 
late studying every night and taking harassment 
from the upperclassmen. Sometimes you wish 
you could just get away for a while, to a 
different place in time. But for now, you are 
content just to go home for the semester break 
and enjoy Christmas with family and friends. 

Back home, in your old room, the tension of 
classwork is finally released. Except f or the f act 
that everything is neat and straight, the place 
looks pretty much the same. The CoCo has 
accumulated a little dust, but that can be 
attended to later. For now, you just want to lay 
back on the bed and check out the stack of mail 
that has accumulated on your desk. 

Let’s see ... a couple of nice Christmas 
cards, a letter from your buddy, Steve, remind¬ 
ing you of the annual New Year’s snow-skiing 
weekend and . . . Wait! What’s this? Why, it’s 
a letter from just about the strangest character 
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you have ever met — the old German scientist, Dr. Tempus. He urgently requests 
your presence. 

You met old man Tempus at the last RAINBOWfest in Chicago. An extremely 
likable and well-respected guy, he could talk about his fantastic ideas all day, 
and usually did. While chatting over lunch one afternoon, he confided in you 
that he was on the verge of a miraculous invention — a machine capable of 
transporting people into the past or the future. Your initial inclination was to 
laugh, but the seriousness of his expression warned you against it. He swore 
you to secrecy and promised that you would be the first to know when the 
machine was completed. That was the last you heard from him — until now. 

You’d like to stay home and relax until dinnertime, but the good doctor’s 
request is irresistible. He seems a little weird for a 93-year-old; however, he 
does mean well. And, who knows, he may have really stumbled onto something, 
although you seriously doubt it. 

Once at Dr. T’s front door, you are greeted by a 4-foot-tall robot. You are 
asked to state your business, and after doing so, the beeping and buzzing little 
metal creature directs you to the laboratory. Inside, you see your old friend 
steadily at work. The robot alerts him of a visitor. 

Dr. Tempus looks up and quickly moves toward you. “Comb in, comb in, 
mein little freund. How haf you bean?” Without receiving a reply, he continues, 
“I haf bean verdy onxious to refeal mein latest und greatest infention to you.” 
He walks over to a large tarpaulin-covered object. With one quick flick of a 
hanging rope suspended overhead, the draping is removed and a machine is 
revealed. 

“Here it is — der time machine,” he announces, “das only von in de vorld.” 

Looking at the steel and glass object, you are amazed at its obvious 
complexities. You can’t help but wonder how the contraption could actually 
work. 

It looks like a two-man space capsule, with a long glass tube coming from 
the top and extending out of the roof of the laboratory. Through the glass- 
domed windshield, the lighted control panel of buttons, dials and monitors are 
clearly visible. And, in front of the two seats, which very closely resemble old- 
time barber’s chairs, is the doctor’s favorite, a Color Computer. 

Anxious to demonstrate his wondrous invention, the doctor climbs in, 
assuring you that he will return in no more than 15 minutes. Slightly baffled, 
you watch as the steel door shuts securely behind him. Peering through the 
windshield, the old man can be seen, strapping himself into the driver’s seat 
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and frantically pressing the buttons surrounding him. Then, in a whirling cloud 
of bellowing smoke, he disappears. 

You wonder if some kind of illusion has been created. But for some 
inexplicable reason, you trust the doctor and patiently wait for his return. 

And, just as Dr. T indicated, within 15 minutes the familiar whooshing sound 
returns. In merely an instant, the entire scene created when the doctor left is 
reenacted as though it is a film running in reverse. To your amazement, the 
door slides open and Tempus appears holding an extremely large egg. “It is 
not verdy easy getting ein egg avay from de mutter dinosaura” he insists, “but 
I hope das vill convinz you.” 

Indeed it does, but you question why he has requested your assistance. He 
explains, “Years ago, I may haf made de journeys alone. But now I am zu old. 
I need ein young man zu accompany me. And, you mein trusted freund, vill 
be perfect. Just dink of all de treasures ve can bring back. Ve vill be rich!” 

The Adventure, Time Travelers, begins in Dr. Tempus’ time machine, known 
as TM throughout the game. From there, you will be instructed to choose the 
first time zone you wish to travel: 


D The age of the dinosaurs 

A King Arthur’s Camelot 

E El Dorado 

R Ancient Rome 

S Sherlock Holmes’ England 

T The Roaring ’20s 

F The future 

To start the Adventure, type the letter of your choice. 

To travel within the time zones, type GO, followed by the first letter of the 
direction: N (North), S (South), E (East) or W (West) (e.g., GO N). 

The program accepts the standard two-word commands. The following verbs 
may be used and abbreviated by typing only the first three letters: 


DRINK 

GET 

KNOCK 

SHOW 

DROP 

GO 

OPEN 

SING 

ERT 

INVENTORY 

QUIT 

UNLOCK 

FIGHT 

LOOK 

RUN 

WHISPER 
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The verbs must be followed by a noun, which may also be abbreviated by typing 
only the first three letters. For example: The command DRINK WATER may be 
abbreviated by typing only DRI WAT. 

Each time zone has its own rewards and dangers. When you have accumulated 
as many treasures as you want, you may conclude the game by typing P, for 
return to the present, but only from within the time machine. The computer 
will then list the number of moves made, the number of time periods visited, 
and the treasures found and their monetary worth. The success of your treasure 
hunting in time will determine your standard of living when you return to the 
present. 

If your findings are worth only a minimal amount, you will be awarded a 
mere New York city tenement. Moderate success will get you a country cottage 
in Prospect, Kentucky. Finding treasures worth over a million will afford you 
a beach front condo in Miami, Florida. Only by achieving the highest success 
level will you receive a palatial splendor in southern California. 

Note: It may be necessary to RUN the Adventure twice since a PCLEAR is used, 
and may cause an SN Error . 


Ann Mayeux takes time from the computer to care for a husband and two 
small sons. She has a degree in psychology and taught herself programming 
from the CoCo manual and THE RAINBOW. Questions or comments may 
be addressed to Ann at 874 Maine Road, Key West, FL 33040. Please 
enclose an SASE when requesting a reply. 
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" j TRAVELER 32K ECB 

2 PMODE0:PCLEAR1:CLS0 
4 DIMA(45,7) 

6 A$=CHR$(143)+STRING$(30,128):G 
OSUB22:PRINT0480," ***TIME T 

RAVELERS***":GOSUB22 
8 F0RT=1T06:PRINTA$:F0R0=1T035:N 
EXTO:NEXTT:PRINT" BY ANN B. 

MAYEUX":G0SUB22:F0RT=1T06:PRINT 
A$:F0R0=1T035:NEXTO:NEXTT:GOSUB2 
2 

10 PRINT:PRINT:PRINT" YOUR STRA 
NGE FRIEND DR.TEMPUS HAS CALLED 
YOU TO HIS HOUSE.":PRINT" 'I HA 
VE CREATED A":PRINT:PRINTTAB(9)" 
★TIME MACHINE*":PRINT 
12 PRINT" I CALL IT TM & IT SEE 
MS TO BE TEMPERMENTAL—ONLY GOES 
TO SEVENTIME ZONES, BUT JUST TH 
INK! WE COULD RETURN WITH A DIN 
OSAUR EGGOR THE HOLY GRAIL..AND 
WHO KNOWSWHAT ELSE WE MAY FIND." 
:PRINT" LET'S GO!!'":PRINT 
14 GOSUB292 

16 INPUT" <ENTER> WHEN READY 

";x$ 

18 H=30:N$="NOTHING HAPPENS":RO= 

0 

20 GOTO770 

22 F0R0=1T0999:NEXTO:RETURN 
24 FORO=1TO1500:NEXTO 
26 H=H-1:IFH<1THENPRINT"HUNGER H 
AS TAKEN YOU BOTH":G0T0348 
28 CLS:PRINT:PRINT"YOU ARE ";:GO 
SUB88 

30 IFH<7THENPRINT"DR.T SAYS'I FE 
EL VERY HUNGRY'" 

32 IFA(RO,6)>20THENU=A(RO,6)-20: 
GOSUB22:PRINT:PRINT"HORRORS! "; 

E$(U) 

34 IFA(RO,6)=2ANDSW=0THENPRINT"O 
N THE GROUND LIES A SWORD" 

36 PRINT:INPUT"WHAT WILL YOU DO" 
;A$:IFA$=""THEN3 6 
38 B$=LEFT$(A$,3):N=1:M=LEN(A$) 
40 IFA$="HELP"THENPRINT"DON'T AS 
K ME,ASK DR.T":G0T036 
42 IFA$="LOOK"THEN524 
44 IFB$ = "FIG"THEN264 
46 IFB$="QUI"THEN348 
48 IFB$="INV"THENGOSUB736:G0T036 
50 IFA$="CAROUSE"THENPRINT"YAHOO 
! !":G0T03 6 

52 IFA$="SING"THEN62 

54 IFMID$(A$,N,1)=" "THEN C$=MID 


$(A$,N+1,3):IFLEFT$(C$,1)<>" "TH 
EN60:ELSE58 

56 IF N<M THEN N=N+1:G0T054 

58 PRINT"TWO WORDS PLEASE":G0T03 

6 

60 IFB$="GO "ORB$="WAL"ORB$="RUN 
"THEN382 

62 IFB$="SIN"THEN724 

64 IFB$="GET"THEN546 

66 IFB$="DRO"THEN600 

68 IFB$ = "EAT"THEN42 8 

70 IFB$="ASK"THEN44 8 

72 IFB$="UNL"THEN496 

74 IFB$="DRI"THEN510 

76 IFB$="WHI"THEN520 

78 IFB$="KNO"THEN518 

80 IFB$="OPE"THEN478 

82 IFB$="SHO"THEN730 

84 IFB$ = "LOO"THEN536 

86 PRINT"I DON'T UNDERSTAND ";A$ 

:GOTO36 

88 ON RO GOSUB92,94,112,114,118, 
120,126,128,130,132,144,150,156, 
158,160,164,166,168,170,172,178, 
180,182,184,188,190,192,198,200, 
202,206,212,216,218,222,226,228, 
230,236,238,240,250,252,254,256 
90 RETURN 

92 PRINT"BESIDE TM ON A GRASSY 
ISLAND WITH SWAMP WEST & SOUTH" 
:RETURN 

94 PRINT"ON A GRASSY ISLAND WITH 
SWAMP TO NORTH AND WEST":GOSUB 
22 

96 PRINT"BEFORE YOU LOOMS A TYRA 
NNOSAURUSREX":TIMER=0 
98 IFTIMER>3 600THEN12 4ELSEINPUT" 
WHAT WILL YOU DO";A$:B$=LEFT$(A$ 
,5):IFA$="RUN"THENPRINT"RUN WHER 
E?":G0T098 

100 IFA$="FIGHT"THENPRINT"YOU CA 
NNOT FIGHT THE KING OF TYRANT 
S":G0T098 

102 IFB$="RUN S"THENRO=l:G0T026 
104 IFB$="RUN E"THENRO=3:G0T026 
106 IFLEFT$(A$,2)="GO"THENPRINT" 
DR.T YELLS'FASTER...FASTER!!":GO 
T098 

108 IFB$="RUN W"ORB$="RUN N"THEN 
RO=7:G0T02 6 

110 PRINT"WITH A DINOSAUR CHASIN 
G YOU,YOU WANT TO ";A$"?":G0T098 
112 PRINT"ON A GRASSY ISLAND":PR 
INT"NORTH IS SWAMP;EAST A VOLCAN 
O":RETURN 

114 PRINT"ON A GRASSY ISLAND":PR 
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INT"SOUTH IS SWAMP? EAST A CLIF 
F. YOU SEE A BUSH WITH BERRIES 
AND A MAMA TRICERATOPS " ?: IFE=0T 
HENPRINT"WITH AN EGG" 

116 RETURN 

118 PRINT"ON A VOLCANO":PRINT"SW 
AMP-NORTH&EAST?WEST-THE PLAIN SO 
UTH-A DARK CAVE":RETURN 
120 PRINT"IN A DARK CAVE" 

122 GOSUB2 2 : SOUND1,2 0 : PRINT" FROM 
BELOW EMERGES A FOUL DINO- SAUR 
n 

124 SOUND1, 20: PRINT"HE GOT YOU A 
ND YOU END YOUR DAYSAS A SNACK O 
F THE MESOZOIC AGE":G0T0348 
126 PRINT"SLOSHING IN THE SWAMP" 
:G0T012 2 

128 PRINT"ON PALATIN HILL NEXT T 
O TM":PRINT"NORTH IS THE ROMAN F 
ORUM, SOUTH THE APPIAN WAY, WEST 
A TEMPLE. EAST YOU SEE CLOSED 
BUILDINGS & MEAN STREETSRETUR 
N 

130 PRINT"IN THE ROMAN FORUM.":P 
RINT"WEST & NORTH ARE MEAN STREE 
TS. EAST IS THE COLOSSEUM? SOUT 
H IS PALATIN HILL. " : A(10,6) =0: RE 
TURN 



132 PRINT"IN THE COLOSSEUM":PRIN 
T"IT IS FULL OF PEOPLE":IFA(10,6 
)=0THENGOSUB2 2:PRINT"YOU ARE CAU 
GHT BY A GUARD AND PRESENTED T 
O CAESAR WHO CRIES:":G0T0136 
134 PRINT"RAINING COINS UPON YOU 
R HEAD":PRINT"THE ONLY EXIT YOU 
SEE IS WEST":RETURN 
136 0=RND(4) 

138 IF0=1THENPRINT" 1 LET THEM FIG 
HT THE GLADIATORS'":G0T0358 
140 IFO=2THENPRINT"'THROW THEM T 
O THE LIONS'":GOTO370 
142 PRINT"'LET'S PARTY! EVERYONE 


TO MY PALACE'":GOSUB22:PRINT"YO 
U ARE SURROUNDED BY CHEERING PE 
OPLE AND LED TO THE PALACE":RO=l 
5:SL=0:GOTO24 

144 PRINT"LOST IN A MAZE OF DIRT 
Y STREETS":GOSUB22 
146 PRINT"A CROWD OF RUFFIANS AP 
PEAR AND FEARFUL OF YOUR STRANG 
E ATTIRE STONE YOU" 

148 PRINT"THEY GOT YOU AND YOU A 
RE LOST INTHE MISTS OF TIME":GOT 
03 48 

150 PRINT"IN THE TEMPLE OF THE 
VESTAL VIRGINS.":PRINT"THE TIB 
ER FLOWS PAST WEST&SOUTH.NORTH A 
RE MEAN STREETS":PRINT"EAST PALA 
TINE HILL." 

152 PRINT"YOU SEE AN ALTAR"?:IFB 
X=0THENPRINT" ON WHICH RESTS A B 
OX" 

154 RETURN 

156 PRINT"ON THE APPIAN WAY":PRI 
NT "IT WINDS FROM NORTH THEN EAST 
": RETURN 

158 KL$="IN A MAZE OF CATACOMBS" 
:ML$="MOLDY LOAF OF BREAD":DL$=" 
THE SOUND OF HYMNS SEEMS TO ECHO 
AROUND YOU":TL$="A SACRED SCROLL 
":G0T0646 

160 PRINT"IN CAESARS PALACE.":IF 
SL=0THENPRINT"EVERYONE IS EATING 
, DRINKING, CAROUSING, SINGING 
."ELSEPRINT"EVERYONE IS ASLEEP" 
162 PRINT"THE DOOR NORTH HAS BEE 
N BARRED? SOUTH YOU SEE THE APPI 
AN WAY? ’WEST IS PALATIN HILL": 
RETURN 

164 PRINT"BESIDE TM IN A CLEARIN 
G IN DARK WOODS. A LIGHT GLOWS T 
O THE NORTH.":A(20,7)=2:RETURN 
166 PRINT"AT CAMELOT":PRINT"WEST 
IS A HALL? SOUTH A PATH":RETURN 
168 PRINT"IN A HALL GOING NORTH 
& EAST":RETURN 

170 PRINT"IN A HALL GOING SOUTH 
& EAST":RETURN 

172 PRINT"IN A ROOM WITH A LARGE 
ROUND TABLE "?:IFBO=0THENPRINT 
"ON WHICH IS A SMALL JEWELLED CA 
SKET"ELSEPRINT 

174 IFA(20,7)=2THENPRINT"0N THE 
TABLE IS A LOAF OF BREAD" 

176 PRINT"NORTH IS A PATH THROUG 
H DARK WOODS, WEST A HALL":RE 
TURN 

178 PRINT"ON N/S PATH THROUGH TH 


178 




E WOODS":RETURN 

180 PRINT"ON N/S PATH THROUGH DE 
EPWOODS. NORTH YOU SEE A BEAUTIF 
ULTEMPLE.":RETURN 
182 PRINT"IN DEEP DARK FOREST":G 
OSUB22:PRINT"A BAND OF BANDITS S 
URROUND YOU":G0T0148 
184 PRINT"IN A BEAUTIFUL TEMPLE. 
": IFGR=0THENPRINT"ON THE ALTAR S 
TANDS":GOSUB22:PRINT"... THE HOLY 
GRAIL" 

186 RETURN 

188 PRINT"BESIDE TM IN A DESERT 
SOUTH&WEST IS UNCLIMBABLE CLIF 
F" : A (2 7,7 ) =2 :RETURN 
190 PRINT"IN A DESERT":PRINT"UNC 
LIMBABLE CLIFF WEST & NORTH; EAS 
T IS A WALLED SETTLEMENT":A(27,6 
)=21:GD=0:RETURN 

192 PRINT"IN A SPANISH SETTLEMEN 
T":IFA(27,7)=2THENPRINT"THERE 1 S 
A TABLE IN ONE CORNER WITH BRE 
AD ON IT." 

194 IFGD=0THENPRINT"AND IN THE O 
PPOSITE CORNER":PRINT" ***GO 

LD***" 

196 RETURN 

198 KL$="SURROUNDED BY DESERT":M 
L$="CACTUS":DL$="NOTHING BUT TUM 
BLEWEED FOR MILESTL$="A TREASU 
RE CHEST OF GOLD":G0T0646 
200 PRINT"AT 22IB BAKER ST.":PRI 
NT"SHERLOCK HOLMES STUDIES YOU&T 
M LACONICALLY AND REMARKS THAT 
YOUCAN GO ANY DIRECTION IN THE C 
AB AT THE DOOR":RETURN 
202 PRINT"IN REGENTS PARK":PRINT 
"THERE IS A VENDOR SELLING BREAD 
AND WINE.";:IFBG=0THENPRINT" ON 
A BENCH YOU SEE A BAG." 

204 PRINT"THE CAB WAITS":A(30,7 ) 
=2:RETURN 

206 PRINT"AT PROFESSOR MORIARITY 
'S HOUSE." 

208 IFA(31,6)=0THENPRINT"IT IS C 
LOSED UP TIGHT" 

210 RETURN 

212 PRINT"AT SCOTLAND YARD.":IFA 
(33,6)>0THENPRINT"THE SERGEANT T 
ELLS YOU THERE'S ASTRANGE ILLNES 
S IN THE CITY.HE CONVIDES HE TH 
INKS A VAMPIRE IS IN TOWN AND AN 
YONE WHO COULD RIDTHE TOWN OF TH 
IS SCOURGE WOULD BE RICHLY REWA 
RDED." 

214 RETURN 


216 PRINT"AT A LARGE HOUSE":RETU 
RN 

218 PRINT"ON AN AVENUE THAT DEAD 
- ENDS WEST AT THE POLICE STATIO 
N.NORTH AND SOUTH ARE BUILDINGS, 
EAST WHAT SEEMS TO BE AN ENDLE 
SSMAZE OF STREETS.TM WAITS FOR Y 
OU":A(35,7)=2 

220 GOSUB22:PRINT"A MAN SIDLES U 
P TO YOU AND MUT- TERS'LOOKING F 
OR HOOCH?'AND NODSHIS HEAD AT A 
DOOR NORTH":RETURN 
222 PRINT"IN A DARK & GLOOMY SPE 
AKEASY. THE ONLY WAY OUT IS THE 
DOOR TO THE SOUTH.":IFA(RO,7)= 
2THENGOSUB22:PRINT"A WAITER BRIN 
GS BREAD AND FOUL SMELLING BREW 

it 

224 RETURN 

226 PRINT"IN A POLICE STATION":P 
RINT"SERGEANT O'HARA GIVES YOU A 
LEC-TURE ON THE EVILS OF DEMON 
RUM. THE ONLY EXIT IS EAST":RETU 
RN 

228 KL$="IN A MAZE OF STREETS.": 
ML$="CRUST OF BREAD ON THE STREE 
T":DL$="RAUCOUS NOISE EMINATES F 
ROM A DINGY DOOR":TL$="A DIAMO 
ND STICKPIN":G0T0646 
230 PRINT"IN A LARGE AUDITORIUM 
WITH TM IN CORNER.":PRINT"THER 
E ARE DOORS NORTH,WEST&SOUTHEAST 
IS A THICK GLASS AND LEAD DOOR 
THAT SHOWS AN ALIEN & DESO-LATE 
LAND WHERE NOTHING SEEMS TOBE A 
LIVE" 

232 0=RND(3):IF0=1THENA(39,6)=27 
ELSEIFO=2THENA(42,6)=27ELSEIFO=3 
THENA(4 3,6)=2 7 
234 A(41,6)=27:RETURN 
236 PRINT"IN AN L-SHAPED ROOM WI 
THDOORS S/E/W. A NORTH DOOR IS 
LABELLED danger-radiation zone 
":RETURN 

238 PRINT"IN LONG E/W HALL":RETU 
RN 

240 PRINT"ON A ROCKET SHIP WITH 
PORTALS EAST AND SOUTH.":IFA(4 
1,7)>0THENPRINT"AGAINST THE WALL 
ARE FOOD TUBES":GOSUB2 2" 

242 IFA(41,6)=27THENPRINT"THE RO 
CKET SUDDENLY SHAKES AND ROARS 
AS IT TAKES OFF...WITH YOUIN IT! 

it 

244 IFA(41,6)=1THENPRINT"THR0UGH 
THE WINDOWS YOU CAN SEE STARS A 





ND PLANETS AND GALAXIES" 

246 IFA (41,6) =0THENPRINT"THE ROC 
KET HAS JUST RETURNED TO EARTH" 
248 RETURN 

250 PRINT"IN A LABORATORY" : PRINT 
"A HEAVY DOOR TO WEST IS LABELED 
'danger-radiation zone":PRI 
NT"NORTH AND EAST ARE REGULAR DO 
ORS":RETURN 

252 PRINT"IN A HALL":PRINT"THERE 
ARE DOORS WEST AND NORTH":RETUR 
N 

254 PRINT"IN AN UNINHABITABLE 
radiation zone":GOSUB22:PRINT 
"YOU FEEL YOURSELVES BECOMING 
SICK AND YOU SINK TO THE GROUND 
":GOSUB22:PRINT"YOUR BODIES ARE 
NOW LOST IN THE FUTURE":G0T0348 
256 PRINT"IN THE CABPRINT"THE 
CABBIE SAYS YOU NEED A TOUR OF 
LONDON":GOSUB22:IFRND(2)=1THENPR 
INT"'HERE'S HYDE PARK"ELSEPRINT" 
'HERE'S BUCKINGHAM PALACE" 

258 GOSUB22:IFRND(2)=1THENPRINT" 
THERE'S THE TOWER OF LONDON"ELSE 
PRINT"THERE'S BEDIAM..ER..BETHLE 
HELM LUNATIC ASYLUM" 

260 GOSUB22 : IFRND (2) =1THENPRINT" 
AND THE BRITISH MUSEUM "'ELSEPRIN 
T"AND MADAME TUSSAUD'S'" 

262 GOSUB22:PRINT"AND HE BRINGS 
YOU BACK TO BAKER STREET":RO=29: 
G0T024 

264 IFA(RO,6)<15THENPRINT"THERE' 
S NOTHING TO FIGHT HERE":G0T036 
266 IFSW=1THENJ=RND(7) :GOTO270 
268 J=RND(4) 

270 IFJ=1THENPRINT"HE GOT YOU" : G 
0T0286 

272 IFJ=2THENPRINT"HE STRIKES A 
TELLING BLOW":GOSUB22:G0T0266 
274 IFJ=3THENPRINT"YOU HAVE WOUN 
DED HIM":GOSUB2 2:GOTO 266 
276 IFRO= 33THENPRINT"DRACULA TUR 
NED INTO A BAT AND FLEW AWAY": 
A (3 3,6) =0 : G0T02 4 
278 IFRO=31THENPRINT"YOU KILLED 
THE ARCH CRIMINAL MORIARITY A 
ND MADE THE WORLD A LITTLE SAFE 
R FOR GOOD MEN" : A (31,6) =0 : GOSUB2 
2:GOTO24 

280 IFRO=41THENPRINT"YOU GOT HIM 
»:A(RO,6)=1:G0T024 
282 IFRO=10THENPRINT"YOU BESTED 
HIM.MAGNANIMOUSLY YOULET HIM GO. 
" : A (10,6) =3 : G0T024 


284 PRINT" YOU GOT HIM" : A (RO, 6 ) =0 
:GOTO24 

286 IFRO=33THENPRINT"NOW YOU ARE 
A VAMPIRE TOO":G0T0348 
288 IFRO=22THENPRINT"THE SORCERO 
R HAS TURNED YOU BOTHINTO FROGS. 

..":PLAY"L64CD":PRINT"I HOPE YOU 
LIKE FLIES." 

290 G0T0348 

292 F0RR0=1T045:FORC=1T07:READA( 
RO,C):NEXTC:NEXTRO 
294 F0RX=1T08:READT$(X)INEXTX 
296 F0RX=1T07:READE $(X) :NEXTX 
2^8 RETURN 

300 DATA2,7,4,7,1, ,,7,1,3,7,,, 
302 DATA7,4,5,2,,,,3,7,,1,,,1 
304 DATA7,6,7,3,,,,,,,,,,,,,,,,, 
306 DATA9,13,11,12,1,2,,11,8,10, 

308 DATA0 / ,, 9, ,,,,,,,,, 

310 DATA 11, ,8, , ,3, ,8, ,14, , , , 

312 DATA14,14,14,13,,4,,,13,,8,, 
,2 

314 DATA17,23,23,23,1,,2,,16, , 18 
, , 2, 

316 DATA19,,17,,,,,,18,2p,,,, 

318 DATA21, ,, 19, ,5,2,22,2)3,23,23 
,,22, 

320 DATA24,21,23,23,, 23,, ,,,,,,, 
,22,,,,6, 

322 DATA26,,28,,1,,,,25,27,,,, 
324 DATA0,,,26,,21,2,28,28,28,25 

326 DATA30,31,32,33,1,,,45,29,32 
,33,,3,2 

328 DATA29,45,32,33,,24,,30,31,4 
5,29, , , 

330 DATA30,31,29,45,,25,,,,37,36 
,1,26, 

332 DATA0,34,,,,1,2,,,34,,,, 

334 DATA37,37,37,34,,, 

336 DATA39,43,44,39,1, ,, 44,38,38 
,40/ / , 

338 DATA0,,39,41,,,,,42,40,,,27, 
2 

340 DATA41,,43,44,,9,, 38,, ,42, , , 

342 , DATA30,30,30,30,,, 

344 DATA DIAMOND,SWORD,COINS,SCR 
OLL,CROSS,HOLY GRAIL,GOLD,VACCIN 
E 

346 DATA A CONQUISTADOR,A DRAGON 
,A SORCEROR,PROF MORIARITY,DRACU 
LA,A GANGSTER,A ROBOT 
348 GOSUB22:PRINT:PRINT:PRINT"AN 
OTHER GAME? Y/N" 
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35J3 A$=INKEY$ 

352 IFA$="Y"THENRUN 
354 IFA$="N"THENEND 
356 G0T035J3 

358 PRINT"THE GLADIATORS APPEAR" 
36J3 INPUT"WHAT WILL YOU DO";A$ 
362 IFA$="STAB"ORA$="FIGHT"ORA$= 
"HIT"THENG0T02 6 6 

364 PRINT" YOU CAN'T " ; A$ : G0T03 6j3 
366 PRINT"YOU HAVE BESTED THEM. 
MAGNANI- MOUSLY YOU SPARE THEM. 

ii 

368 PRINT"THE CROWD CHEERS AND C 
OINS RAIN UPON YOUR HEAD":PRINT" 
THE ONLY EXIT IS WEST":G0T036 
37J3 PRINT"THE LIONS APPEAR" :SOUN 
D3,2J3 

372 IFSW=1THENT=RND(3) 

374 IFSW=J3THENT=RND(9) 

376 GOSUB22 

378 IFT=2THENPRINT"YOU HAVE SLAI 
N THE LIONS . " : A (1J3,6 ) =3 : G0T024 
38J3 G0T0148 

382 IFA(RO,6)>19THENPRINT"YOUR F 
OE WILL NOT LET YOU G0":G0T024 
384 IFC$="HOU"ANDRO=33THEN422 
386 IFY<1THENA(3 3,6)=2 5 
388 IFRO=15AND SL=J3THENPRINT"CAE 
SAR SHOUTS—YOU CAN'T GO. EAT-DR 
INK-SING-CAROUSE":G0T024 
39J3 IFRO=4ANDE=lTHEN59j3 
392 IFRO=41ANDA (RO , 6) >J3THENPRINT 
"YOU DON'T WANT TO LEAVE THE ROC 
-KET WHILE IT'S IN OUTER SPACE": 
GOTO24 

394 IFC$="TM"ANDA (RO ,5) =J3THENPRI 
NT"IT ISN'T HERE":GOTO36 
396 IFC$="TM"G0T077J3 
398 D$=LEFT$(C$,1) 

4J3J3 IFD$="N"ANDA (RO , 1) =J3THENPRIN 
T"YOU CAN'T GO THAT WAY":G0T036 
4J32 IFD$="S"ANDA (RO , 2 ) =J3THEN422 
4J34 IFD$="E" ANDA (RO , 3 ) =J3THENPRIN 
T"NO EAST EXIT":G0T036 
4 J36 IFD$="W"ANDA (RO , 4 ) =J3THEN422 
4J38 IFD$="N"ANDRO=22THEN424 
41J3 IFD$="N"THENRO=A(RO, 1) : G0T02 
6 

412 IFD$="S"THENRO=A(RO,2):G0T02 
6 

414 IFD$="E"THENRO=A(RO,3):G0T02 
6 

416 IFD$="W"THEN RO=A(RO, 4) :GOTO 
26 

418 IFC$="TEM"ANDRO=8THENRO=12:G 
0T02 6 


42J3 IFC$="TEM"ANDRO=22THEN424 
422 PRINT"YOU CAN'T "A$:G0T036 
424 IFL=j3THENPRINT"THE DOOR IS L 
OCKED":GOTO3 6 
426 RO=24:G0T024 

428 IFC$="BER"ANDA(RO,7)=1THEN44 
4 

43J3 IFC$="BER"ANDB=1THEN4 44 
432 IFC$="BRE"ANDA(RO,7)=2THENPR 
INT"RATHER TASTY AND VERY FILLIN 
G":G0T0446 

434 IFC$="BRE"ANDBR>J3THENPRINT"R 
ATHER TASTY":BR=BR-1:G0T0446 
436 IFC$="BRE"THENPRINT"YOU DON' 
T HAVE ANY":GOTO36 



438 IFC$="FOO"ANDA (RO , 7 ) >J3THEN44 
4 

44J3 IFC$ = "F00"ANDF=1THEN444 
442 PRINT"YUCK":G0T036 
444 PRINT"MMM,NOT BAD" 

446 H=H+15:GOTO36 

448 IFC$="DR."THEN456 

45j3 IFRO=34ANDC$ = "FOR"ORC$="JOE" 

THEN454 

452 PRINT"WHO?":G0T036 
454 PRINT"THE DOOR OPENS ON A DI 
NGY BAR":RO=35:G0T024 
456 IFRO=15THENPLAY"L7EEL2GL7EEL 
2GL7EG04L3C03BAAL3G":G0T036 
458 IFRO=22THENPRINT"ONE MUST GO 
WHERE ALL ROADS LEAD":G0T036 
46J3 IFRO=5THENPRINT"DIAMOND' RE A 
DROP IN THE BUCKET":G0T036 
462 IFRO=34THENPLAY"L3C#L8DL3C#L 
8DC#FF#P4L4DL3C#L8DL3C#L8DCGG#": 
GOTO36 

4 64 IFRO=3 3ANDY<1THENPRINT"ALL M 
UST CROSS HIS PATH SOMETIME":GOT 
036 

466 IFR0=410R RO=35 ORRO=43THENP 
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RINT"SEEK AND YE SHALL FIND":GOT 
036 

468 0=RND(3) 

470 IF0=1THENPRINT"COMMON SENSE 
IS NOT SO COMMON" 

472 IF0=2THENPRINT"NOBODY CAN GI 
VE YOU WISER ADVICETHAN YOURSELF 

ti 

474 IF0= 3ANDR0>7THENPRINT"HALF A 
LOAF IS BETTER THAN NONE"ELSEIF 
0=3THENPRINT"BEWARE THE DARK,DAM 
P,OR MEAN" 

476 GOTO36 

478 IFC$="BOX"THEN490 

480 IFC$="CAS "THEN492 

482 IFC$="DOO"ANDRO=22ANDL=0THEN 

PRINT"IT IS LOCKED":G0T036 

484 IFC $="DOO"ANDRO=2 2 ANDL=1THEN 

PRINT"IT IS OPEN":G0T036 

486 IFC$="BAG"ANDRO=30THENPRINT" 

COINS FELL OUT":GOTO36 

488 PRINT"IT CANNOT BE OPENED":G 

0T036 

490 IFRO=12ORBX=1THENPRINT"THE B 
OX IS OPEN"?:IFKY=0THENPRINT", A 
ND INSIDE YOU SEE A KEY" 

492 IFRO=20ORBO=1THENPRINT"THE C 
ASKET IS OPEN "?:IFCR=0THENPRINT 
"AND INSIDE YOU SEE A SMALL GO 
LD CROSS" 

494 GOTO36 

496 IFKYO1THEN504 

498 IFRO=22ANDL=1THEN508ELSEINPU 

T"WITH WHAT"?A$ 

500 IFRO=22ANDA$="KEY"THEN506 
502 IFRO=22ANDA$="WITH KEY"THEN5 
06 

504 PRINT"YOU DO NOT HAVE A KEY 

FOR THAT DOOR":G0T03 6 

506 SOUND150,1:L=1 

508 PRINT"THE DOOR IS UNLOCKED": 

GOTO36 

510 IFC$="WIN"THENPRINT"GAGGG, Y 
OU ARE ABOUT TO BE SICK":SOUND55 
,10:H=H-6:GOTO36 

512 IFC$="RUM"ORC$="BRE"THENPRIN 
T"BARF, WHAT FOUL ROT THEY DRINK 
":H=H-5:GOTO3 6 

514 IFC$="WAT"ANDR0>7THENPRINT"M 
MM, MOST REFRESHING":H=H+5:G0T03 
6 

516 PRINT"YOU WANT TO DRINK WHAT 
???":G0T036 

518 IFRO=34ANDC$="THR"THEN454 
520 IFRO=34ANDC$= m LOW"ORC$="JOE" 
THEN454 


522 PRINTN$:G0T036 
524 IFR0=35ANDA(35,6)=1THENPRINT 
"HEY!!THAT FLAPPER JUST DROPPED 
ADIAMOND ON OUR TABLE!":GOTO36 
526 IFR0=42THENPRINT"AL0NG THE W 
ALLS ARE SHELVES FILLED WITH VAR 
IOUS CONTAINERS":GOTO 2 4 
528 IFR0=41ANDA(41,6)>0THENPRINT 
"THE ROBOT HAS A DIAMOND":G0T036 
530 IFR0=3THENPRINT"PTERADACTYLS 
GRACE THE SKY":G0T024 
532 IFR0=9THENPRINT"A GROUP OF S 
ENATORS CONVERSE IN THE CORNER": 
GOTO24 
534 G0T026 

536 IFR0=42THENPRINT"DR.T EXCLAI 
MS'WE'RE RICH--A VAC-CINE FOR TH 
E COMMON COLD!":GOTO36 
538 IFC$="DOO"ANDRO<38THENPRINT" 
IT'S A HEAVY WOODEN DOOR "?:IFRO 
=15THENPRINT"WITH AN IRON BAR AC 
ROSS IT":G0T036ELSEPRINT"WITH A 
BRASS HANDLE":GOTO36 
540 IFC$="V0L"ANDR0<8THENPRINT"I 
T EMITS WHIFFS OF SMOKE":G0T036 
542 IFC$="TEM"THENPRINT"BEAUTIFU 
L WHITE MARBLE GLEAMS INTHE SUNL 
IGHT":GOTO36 

544 PRINT"YOU SEE NOTHING SPECIA 
L" :GOTO36 

546 IFC$="BER"ANDR0=4THENB=1:PRI 
NT"YOU HAVE SOME BERRIES":G0T024 
548 IFC$="BRE"ANDA(RO,7)=2THENBR 
=BR+1:A(RO,7)=0:W$="BREAD":G0T05 
88 

550 IFR0=41ANDC$="TUB"0RC$="F00" 
THENW$="FOOD":F=1:A(RO,7)=0:GOTO 
588 

552 IFC$="DIA"ANDA(RO,6)=1THEND= 
D+l:W$=T$(1):A(RO,6)=0:G0T0588 
554 IFC$="EGG"ANDR0=4THENE=1:PRI 
NT" YOU GOT THE EGG BUT MAMA IS V 
ERYUPSET":GOTO36 

556 IFC$="SWO"ANDA(RO,6)=2THENSW 
=1:W$=T$(2):G0T0588 
558 IFC$="B0X"ANDR0=12THENW$="B0 
X" :BX=1:G0T0588 

560 IFC$="CAS"ANDRO=20THENBO=1:W 

$="CASKET":G0T0588 

562 IFC$="KEY"ANDR0=12THENKY=1:Z 

=Z+1:W$="KEY":G0T0588 

564 IFC$="KEY"ANDBX=1THENKY=1:Z= 

Z+l:W$="KEY":G0T0588 

566 IFC$="VAC"ANDRO=42THENV=l:W$ 

=T$(8):G0T0588 

568 IFC$="BAG"ANDR0=30ANDA(30,6) 
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=3THENPRINT"COINS FELL OUT"sBG=1 
:GOTO36 

570 IFC$="BAG"THENPRINT M IT IS EM 
PTY":G0T036 

572 IFC$="COI"ANDA(RO,6)=3THENZ= 
Z+lsW$=T$(3):G0T0588 
574 IFC$="GOL"ANDRO=27ANDGD=0THE 
NG=G+l:PRINT"YOU SCOOPED UP SOME 
OF THE GOLD-THERES MORE LEFT BU 
T NO TIME TO GET IT ALL NOW":GD= 
1:G0T024 

576 IFC$="G0L"ANDR0=27ANDGD=1THE 
NPRINT"THERE'S NO TIME. MORE MEN 
ARE COMING":G0T036 
578 IFC$="CRO"ANDRO=20THENCR=1:Z 
=Z+1:W$=T$(5):G0T0588 
580 IFC$="CRO"ANDBO=lTHENCR=l:Z= 
Z+lsW$=T$(5):G0T0588 
582 IFC$="WIN"THENW$="WINE":GOTO 
588 

584 IFC$="GRA"ORC$="HOL"ANDRO=24 
THENGR=lsW$=T$(6):G0T0588 
586 PRINT"YOU CANNOT "A$:G0T036 
588 PRINT"YOU HAVE THE "W$:G0T02 
4 

590 IFB$="RUN"THEN398 
592 0=RND(3) 

594 IF0=1THENPRINT"DR.T YELLS FA 
STER":G0T03 6 

596 IFO=2THENPRINT"MAMA IS ALMOS 
T ON YOU. YOU DROP THE EGG":E=0: 
G0T036 

598 IFO=3THENPRINT"SHE'S GAINING 
!":G0T036 

600 IFR0=5ANDC$="BER"ANDB=1THENW 

$="BERRIES":B=0:G0T0632 

602 IFR0=5ANDC$="EGG"ANDE=1THENW 

$="EGG":E=0:G0T0632 

604 IFC$="BER"ANDB=1THEN PRINT"S 

QUISH":B=0:G0T036 

606 IFC$="SW0"ANDSW=1THEN642 

608 IFC$="EGG"ANDE=1THENPRINT"YO 

U HAVE DROPPED THE EGG AND IT CR 

ACKED.":E=0:G0T03 6 

610 IFC$="DIA"ANDD>0THENW$=T$(1) 

:D=0:GOTO632 

612 IFC$="VAC"THENV=0:PRINT"IT S 
PILLS ACROSS THE GROUND":GOTO36 
614 IFC$="BOX"ANDBX=1THENW$="B0X 
":BX=2:G0T0632 

616 IFC$="CAS"ANDB0=1THENW$="CAS 
KET":BO=2:G0T0632 
618 IFC$="SCR"ANDSC=1THENW$=T$(4 
):SC=2:G0T0632 

620 IFC$="GOL"ANDG>0THENW$=T$(7) 

:G=0:GOTO632 


622 IFC$="KEY"ANDKY=1THENW$="KEY 

":KY=2:Z=Z-1:G0T0632 

624 IFC$="CR0"ANDCR=1THENW$=T$(5 

):CR=2:Z=Z-1:G0T0632 

626 IFC$="GRA"ORC$="HOL"ANDGR=lT 

HENPRINT"YOU DON'T WANT TO DROP 

THE " ;T$(6) :G0T036 

628 IFC$="BAG"ANDBG=1THENW$="BAG 

":BG=0:GOTO632 

630 PRINT"YOU DON'T HAVE IT":GOT 
036 

632 PRINT"YOU HAVE DROPPED THE " 
W$ 

634 IFR0=5THENPRINT"INTO THE VOL 
CANO.IT ERUPTED BUT ALL THAT CAM 
E OUT WAS A DIAMOND":A(5,6)=1:GO 
TO 3 6 

636 IFR0<8THENPRINT" AND IT FALL 
S INTO A HOLE":GOTO24 
638 IFRO>37THENPRINT" AND A ROBO 
T GRABS IT AND DISAPPEARS":G0T02 
4 

640 PRINT"A STRANGE MAN CRIES OU 
T IN GLEE,GRABS IT AND RUNS OFF" 
:G0T024 

642 SW=0:IFRO=5THEN632ELSEIFA(RO 
,6)=0THENA(RO,6)=2:PRINT"YOU DRO 
PPED THE SWORD":GOTO24 
644 GOTO632 
646 K=100 

648 CLS:H=H-1:IFH=0THENPRINT@225 
,"YOU HAVE DIED OF HUNGER":G0T03 
48 

650 IFK=99THENRO=A(RO, 4) :G0T026 
652 PRINT"YOU ARE ";KL$ 

654 IFK=303ORK=6THENPRINT"YOU SE 
E A ";ML$ 

656 IFK=506ANDRO=14ANDSC=1THENGO 
T0662 

658 IFK=506THENPRINT"YOU SEE "TL 

$ 

660 IFK=107ORK= 204ORK=-103THENPR 
INTDL$ 

662 IFH<7THENPRINT"DR.T GROANS'I 
FEEL HUNGRY'" 

664 G0T0668 
666 GOSUB22 

668 INPUT"WHAT WILL YOU DO";A$:B 
$=LEFT$(A$,4):C$=LEFT$(A$,3):D$- 
MID$(A$,5,3) 

670 IFB$="GO N"THENK=K-100:G0T06 
48 

672 IFB$="GO S"THENK=K+100:G0T06 
48 

674 IFB$="GO E"THENK=K+1:G0T0648 
676 IFB$="GO W"THENK=K-1:G0T0648 
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678 IFC$="EAT"THENG98 

680 IFA$="HELP"THENPRINT"DON'T A 

SK ME ASK DR.T":G0T0666 

682 IFA$="ASK DR.T"THENPRINT"EVE 

RY ACTION HAS AN EQUAL AND OPP 

OSITE REACTION"IG0T0666 

684 IFC$="GET"THEN710 

686 IFA$="LOOK"THENPRINT"IT LOOK 

5 THE SAME IN EVERY DIRECTION":G 
0T0666 

688 IFC$="INV"THENGOSUB736:G0T06 
66 

690 IFC$="FIG"ORC$="OPE"ORC$="GO 
"THENPRINT"YOU CAN'T "A$:G0T066 

6 

692 IFC$="QUI"THENG0T0348 
694 IFB$="DROP"THENPRINT"DON'T " 
A$" YOU'LL NEED IT LATER":G0T066 
6 

696 PRINT"I DON'T UNDERSTAND ";A 
$:GOTO668 

698 IFK=303ORK=6ORBR>0ORB=1THEN7 
00ELSE706 

700 IFD$="CAC"ORD$="FOO"THENPRIN 
T"UGH..";:G0T07 08 
702 IFD$="BER"ANDB=1THENPRINT"S0 
UR";:GOTO708 

704 IFD$="BRE"ORD$="CRU"THENPRIN 
T"A BIT MOLDY";IGOTO708 
706 PRINT"YUCK":G0T0666 
708 PRINT" BUT YOU FEEL BETTER": 
H=H+10:G0T0666 

710 IFD$="SCR"ANDK=506THENSC=1:W 
$=T$(4):G0T0722 

712 IFD$="DIA"ANDK=506THEND=D+1: 
W$=T$(1):G0T0722ELSEIFD$="STI"AN 
DK=50 6THEND=D+1:W $ =T $(1):G0T07 2 2 
714 IFD$="GOL"ANDK=506THENW$="GO 
LD":G=G+1:GOTO722 
716 IFD$="CHE"THENPRINT"IT IS TO 
0 HEAVY":GOTO 666 

718 IFD$="BRE"THENBR=BR+1:W$="BR 
EAD":G0T0722 

720 PRINT"YOU CAN'T "A$:G0T0668 
722 PRINT"YOU HAVE THE "W$:G0T06 
66 

724 IFC$="LUL"ANDRO=15THENPRINT" 
EVERYONE IS LULLED TO SLEEP AND 
YOU MAY GO YOUR WAY":SL=1:GOTO36 
726 IFC$="HYM"ANDRO=33ANDA(33,6) 
=2 5THENPRINT"DRACULA FLEES BACK 
TO HIS HOUSE":A(33,6)=0:GOTO36 
728 PRINT"LA-LA-LA":PLAY"EL8EGL4 
FP99L8FAGGEGF":G0T036 
730 IFC$="CRO''ANDCR=1ANDR0=33THE 
NPRINT"HE SHRIEKS AND FLEES FORE 


VER FORTHAT WAS A SACRED CROSS B 

ORNE BYSIR GALAHAD OF THE ROUND 

TABLE":GOTO 734 

732 PRINTN$:GOTO36 

734 Y=2:GOSUB22:PRINT"IN GRATITU 

DE THE MAYOR OF LONDONGIVES YOU 

THE KEY TO THE CITY AND A REWA 

RD OF 500GRAND":Z=Z+500:A(33,6) = 

0:GOSUB2 2:G0T02 4 

736 PRINT"YOU HAVE HOPE,"; 

738 IFSW=1THENPRINT"A SWORD,"; 

740 IFB=1THENPRINT"S0ME BERRIES, 

n . 

742 IFBR>J3THENPRINT"SOME BREAD," 
/ 

744 IFF=1THENPRINT"TUBES OF FOOD 
/ " ? 

746 IFE=1THENPRINT"A DINOSAUR EG 
G,"; 

748 IFG>0THENPRINT"GOLD WORTH $" 
;G*10000","; 

750 IFD>0THENPRINT D"DIAMOND(S), 

M • 

752 IFV=1THENPRINTT$(8) ","; 

754 IFKY=1THENPRINT"A GOLD KEY," 

756 IFBX=1THENPRINT"A BOX,"; 

758 IFCR=1THENPRINT"A SILVER CRO 
SS, "; 

760 IFB0=1THENPRINT"A JEWELLED C 
ASKET,"; 

762 IFGR=1THENPRINTT$(6)»,"; 

764 IFSC=1THENPRINT"A SACRED SCR 
OLL,"; 

766 IFZ>0THENPRINT"TREASURE WORT 
H $";Z*1000 "," ; 

768 PRINT"AND MUCH COURAGERET 
URN 

770 PRINT:CLS:PRINT 1 "YOU ARE IN T 

HE TIME MACHINE":PRINT"IT FLASHE 

S THE TIMES ZONES:":PRINT:0=0 

772 IFR0=1THENG0T0778 

774 IFRND(3)=1THENPRINT"<D>AGE 0 

F DINOSAURS":0=1 

776 IFRO=8THEN782 

778 IFRND(3)=1THENPRINT"<R>ANCIE 

NT ROME":0=1 

780 IFRO=16THEN786 

782 IFRND(3)=1THENPRINT"<A>KING 

ARTHURS":0=1 

784 IFR0=25THEN790 

786 IFRND(3)=1THENPRINT"<E>ELDOR 

ADO":0=1 

788 IFR0=29THENG0T0794 

790 IFRND(3)=1THENPRINT"<S>SHERL 

OCK HOLMES ENGLAND":0=1 
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792 IFRO=34THEN798 HAVING MADE 11 P"TIME JUMPS & VISI 

794 IFRND(3)=1THENPRINT"<T>R0ARI TED"ZN"TIME ZONES" 

NG TWENTIES":0=1 834 PRINT"YOU BROUGHT BACK ";:IF 

796 IFR0=38THENGOTO802 E=1THENPRINT"A DINOSAUR EGG AND 

798 IFRND(3)=1THENPRINT"<F>THE F 

UTURE":0=1 836 IFM=0THENPRINT"NO TREASURE": 

800 IFRO=0THENGOTO804 GOTO840 

802 IFRND(5)=1THENPRINT"<P>RETUR 838 PRINT"TREASURE WORTH ";:PRIN 
N TO THE PRESENT" TUSING"$##,###,###";M*1000 

804 IF0<1THEN 772 840 PRINT:IFM>0THENPRINT"YOU SEL 

806 A$=INKEY$:IFA$=""THEN806 L EVERYTHING";ELSEPRINT"YOU HAVE 

808 IFA$="D"THENR0=1:D0=1 NOTHING, "; 

810 IFA$="R"THENR0=8:R=1 842 IFE=1THENPRINT" BUT THE DINO 

812 IFA$="A"THENR0=16:AR=1 EGG 

814 IFA$="E"THENRO=25:EL=l 844 PRINT"& ARE LIVING IN "; 

816 IFA$="S"THENRO=29:S=1:BG=0 846 IFM>3420THENPRINT"PALATIAL 

818 IFA$="T"THENRO=34:RT=l SPLENDOR IN SOUTHERN CALIFORNI 

820 IFA$="F"THENRO=3 8 : FU=1 A":G0T0854 

822 IFA$="P"THEN828 848 IFM>999THENPRINT"A CONDO IN 

824 IFA$="X"THEN77 0 MIAMI";:G0T0854 

826 P=P+1:IFRO=0THEN770ELSE26 850 IFM>50THENPRINT"A COTTAGE IN 

828 M=Z+(10*G) + (100*D) + (500*V) + ( PROSPECT,KY";:G0T0854 

1000*GR):ZN=DO+R+AR+EL+S+RT+FU 852 PRINT"A TENEMENT IN NYC"; 

830 IFSC=1THENM=M+1000 854 IFE=1THENPRINT" WITH YOUR TW 

832 CLS:PRINT:PRINT"CONGRATULATI O-TON FRIEND" 

ONS!YOU HAVE RE- TURNED ALIVE 856 G0T0348 
FROM YOUR JOURNEY BEYOND TIME 
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Efie £uil Crjpt 


Y 


Program by Curtis Keisler 

ou are Willie the Wizard, dashing, recklessly 
brave and deeply committed to the welfare of 
the people of Seleria, a happy^ kingdom un¬ 
touched by evil. In Seleria, everyone lives in 
harmony and no one is poor. However, high 
atop the mountain, living directly above the 
happy kingdom, lives the evil lord, a patient, 
but persistent force anxiously awaiting the 
opportunity to rule the valley. 

Nevertheless, Selerians always felt most 
assured that their serene way of life would 
remain unchanged, thanks to you. Since you 
possess not only a variety of magic potions and 
charms, but a sword and spellbook capable of 
destroying all evil, the people had no fear of the 
evil lord. They knew he could do them no harm 
with the power of your book and sword behind 
them. 

However, one day the evil lord somehow 
discovered a magical spell that allowed him to 
obtain your most powerful securities. Unfortu¬ 
nately, the sword and spellbook are now in his 
custody and he has hidden them throughout 
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his evil crypt. The crypt’s tortuous maze tunnels below the evil lord’s tower, 
piercing the heart of the mountain. 

Confident of his eternal power since becoming the owner of your defenses, 
the evil lord has granted you one unlikely opportunity for revenge. You will 
be permitted to explore the three levels of his evil crypt. Scattered deep within 
the doldrums, catacombs and dungeons are the powers you once possessed. 

Of course, defenseless, it will be all but impossible to survive. You will 
encounter large bugs that can bite through steel and snakes with poison deadly 
enough to kill a herd of elephants. There will be intergalactic creatures who 
will attack you with their advanced technology and spirits from other 
dimensions to steal from your life force. 

To further hinder your escape, many deadly traps are placed throughout his 
cryptic maze. Fires that will fry the flesh off your bones, graves that kill on 
contact and bottomless pits will make some areas virtually impassible. You’ll 
find fences that will keep you out or something else in. Even the rocks and 
trees are laced with hidden dangers. 

Nevertheless, you must remain positive and concentrate on locating your 
powers. Remember, each finding will increase your odds of survival. The magic 
potion will allow you to float over bottomless pits. The enchanted arrow can 
be used to destroy any nonhuman threat; however, the bow must also be found 
to shoot the arrow. The chest contains the mystical spellbook which is needed 
to escape, along with the hidden key that unlocks the main door. 

Needless to say, if you make it that far, you’ll want to make sure you’ve found 
the sword. Its possession will secure a victory over the evil lord. 

Admittedly, your odds of survival don’t look very good, but don’t despair. 
Have confidence and your power should once again prevail. 


Evil Crypt is a graphics Adventure 
game that includes three underground 
levels of a cryptic maze: Doldrums, 
Catacombs and Dungeons. Upon run¬ 
ning the program, the title screen will 
appear. Press ENTER and you will be 
asked, DO YOU NEED INSTRUCTIONS'? 
Input Y (yes) and a graphics instruction 
screen will display characters, each 
representing an item that may be seen 
or found within the Adventure. 





















After you have studied the instruction screen and familiarized yourself with 
the different rewards and dangers, you are ready to play the Adventure. Press 
ENTER and the playing screen will appear. 

The playing screen contains four f 
boxes, each representing different as¬ 
pects of the Adventure. The box in the 
upper-middle portion of the screen, 
labeled Doldrums, is the level indicator. 

It will always contain the name of the I 
level that is currently being explored. 

After the sound of 24 short tones, the 
box labeled View will display a bird’s- 
eye view of the immediate area sur- ■ 
rounding you. You will always be located in the middle of this box. 

The box labeled Messages is used to direct your attention to the area directly 
below where short messages will appear informing you of your status 
throughout the game. 

The last box, labeled Items, will display any objects as they are picked up 
in the game. 

As you move through the maze, the graphics objects from the instruction 
screen may be picked up or avoided as they appear in the View box. To pick 
up an item simply move over it. A short tone will sound each time an object 
is obtained. The following is a list of the items that must be found in the maze 
and a description of how each is used to win the Adventure: 



Potion This is a special item that is used to levitate over pits. It will 

not appear in the Items box because it is consumed. When 
you get the potion, a rectangular box will be displayed just 
right of the View box. Inside, it will read “levitate time,” and 
a white bar will be located beneath it. To start the levitation 
process, press the L key. Each time the command is used the 
white bar will decrease in size. When the bar is gone, the box 
will disappear, and you will no longer be able to levitate, so 
use it sparingly. 
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Chest The chest contains your spellbook. You will need it to escape. 

Sword The sword is the only thing that can kill the evil lord, but 

it will not work on anything else. To use the sword, press 
the S key. However, the evil lord must be directly above, 
below, left or right of you in order to defeat him. You must 
kill the evil lord to escape the maze. 

Key It will open the main door. You do, of course, need it to 

escape. 

Bow You will need it to fire an arrow. 

Arrow The arrow will kill anything except the evil lord. To fire an 

arrow, press the A key to put you in the fire mode. Then 
press the appropriate arrow key in the direction that you 
want to fire. Be decisive, however, since a long pause here 
will return you to the direction mode. 

Note: Due to memory limitations the program will not run with the disk 
controller plugged in unless it is broken up into two parts: the game (EVILCRPT ) 
and the instruction screen fINSTIJ. To do so, first load "EVILCRP J'\and then 
enter the following commands and program lines in order. 


DEL 136-155 

135 A$=INKEYS:IFA$="N"THEN156ELS 
EIFA$=~Y'THENCLSO:P0KE65494,0:RU 
N~INST1~ELSE135 

SAVE~EVILCRPT/DSI<" 

CLEARiNEW 

CLOAD"EVILCRPT" (the cassette version) 

DEL-70 

DEL01-02 

DEL96-135 

DEL156- 

10 P0KEG5495,0:DIMLS(26),C$(32), 
APS(4),W(10):GD5U003:GOTO 136 
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156 5CREEN0,0:PDKE65494, 0:RUN"EV 
ILCRPT.DSK" 

SRVE^INSTl" 

Note the high speed pokes fPDKE65495,0 and POKE65494,0J. If they will not 
run on your system, simply delete them from the listings. 

After the editing process is complete your disk should contain two BASIC 
files: EVILCRPT/DSK (the actual game) and INST1/BRS (the instruction screen). 
To run the program, simply LORD and RUN"EVILCRPT/DSK, and if needed, the 
instruction screen will automatically load from the disk. 

Note: It may be necessary to RUN the program twice since a PCLERR is used, 
and may cause an SN error. 


Curtis Keisler is 18 years old and will be attending U.S.C. in Aiken, South 
Carolina. There, he hopes to obtain master's degrees in both physics and 
computer engineering. Curtis' dream is to aid in making civilian space travel 
as common as watching TV. Questions or comments may be directed to 
Curtis at Route 2. Box 251 K. Williston . SC 29853. Please enclose an SASE 


when requesting a reply. 

EVILCRPT 32K ECB \ 

1 CLS0:CLEAR1000:POKE65495,0:PLA 
Y"T255V31L2 55":PCLEAR8:PMODE4,1: 
PCLS 

2 DIML$(26),C$(24),M$(24),W(18), 
AP$ (4) ,MX(3 j3) ,MY(30) ,DM(30) :GOSU 
B83:GOSUB171 

3 L=l:X=18:Y=2:GOSUB81:GOSUB133: 
GOSUB4:G0T02 2 

4 LINE(115,83)-(140,108),PRESET, 
BF:GOSUB96:GOSUB82 

5 DRAW"BM0,0C5" 

6 F0RS=1T024:PLAY"T25501L1CP255A 
":F0RT=1T032:N=ASC(MID$(M$(S),T, 
1))-64:DRAWC$(N):NEXTT:DRAW"BM0, 
"+STR$(S*8):NEXTS 

7 IFKG=1ANDL=3THENMID$(M$(23),31 
,1)="@":DRAW"BM240,176C8"+C$(4)+ 
"C5" 

8 IFCE=1ANDL=2ANDB0<>1THENMID$(M 


$ (2) , 13,1)="P":LINE(96,8)-(103,1 
5),PRESET,BF:DRAW"BM96, 8"+C$(16) 
ELSEIFCE=1ANDL=2THENMID$(M$(2),1 
3,1)="@":LINE(96,8)-(103,15),PRE 
SET,BF 

9 IF(LA=10RLA=2)ANDL=1THENMID$(M 
$(20),3,l)="@":LINE(16,152)-(23, 
159),PRESET,BF 

10 IFSW=1ANDL=3THENMID$(M$(2),30 
,1)="@":DRAW"BM232,8C8"+C$(15)+" 
C5" 

11 IFAL=L AND AG=0THENLINE(AX,AY 
)-(AX+7,AY+7),PRESET,BF:DRAWAD$: 
AX=(AX+8)/8:AY=(AY+8)/8:MID$(M$( 
AY),AX,1)="Q":AX=AX*8-8:AY=AY*8- 
8 

12 IFVD=1ANDL=3THENMID$(M$(5),8, 
1)="@":LINE(56,32)-(63,39),PRESE 
T,BF 

13 PMODE4,1:RETURN 

14 A$=INKEY$:A=0:B=0:IFPEEK(341) 
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=247THENB=-1:G0T018ELSEIFPEEK(34 

2)=247THENB=1:G0T018ELSEIFPEEK(3 
43)=247THENA=-1:G0T018ELSEIFPEEK 
(344)=247THENA=1:G0T018 

15 IFA$="S"ANDSW=1THENS0UND1J3J3,1 
: G0T06J3 

16 IFA$="A"ANDAG=1THENS0UND1)3)3,1 
:GOTO63 

17 IFA$="L"ANDLA=1ANDLV=)3THENLV= 
1: SOUND1J3J3,1ELSEIFA$="L"ANDLA=1A 
NDLV=lTHENLV=j3: S0UND1)3)3,1 

18 IFLV=1ANDLA=1THENLINE(246-LT, 
7)3) - (24 6-LT,8)3) ,PRESET:LT=LT+1:I 
FLT=97THEN78 

19 POKE341,255:POKE342, 255:POKE3 
43,255: POKE344,255 :1FAP<>J3THENDR 
AW"C5"+AP$(AP) 

2) 3 AP=l*-(A=-l)+2*-(B=-l)+3*-(A= 
1) +4*- (B=l) : IFAP<>J3THENDRAW"C8'■+ 
AP$(AP) 

21 V=INSTR("@VCDEGHIMNOPQRSTUWJ" 
,MID$(M$(Y+B),X+A,1)):ON V G0T02 
2,22,33,58,35,36,37,5)3,38,39,48, 
52,56,44,4)3,41,42,43,163:G0T014 

22 IFAP=)3THEN116ELSEX=X+A: Y=Y+B: 
PLAY"T25501CP255A" 

23 X1=X*8-16:Y1=Y*8-16:PMODE4,5: 
GET(XI,Yl)-(Xl+23,Yl+23),W,G:PMO 
DE4,1: PUT (116,84)-(139,1)37) ,W,PS 
ET:DRAW"BM124,92"+C$(1) 

24 IFX=29ANDY=18THEN26ELSEIFX=14 
ANDY=16THEN29 

25 G0T014 

26 IFL=1THENL=2:Y=19:DRAW"C5"+AP 
$ (AP) : DRAW"BM93,183C8A)3" : A$="DES 
CENDING '•: GOSUB7 9 : GOSUB4 : LINE (93, 
183)-(175,19)3) ,PSET,BF: POKE341,2 
55:G0T023 

27 IFL=2THENL=1:Y=19:DRAW"C5"+AP 
$ (AP) :DRAW"BM1)3)3,183C8A)3" :A$="CL 
IMBING":GOSUB79:GOSUB4:LINE(93,1 
83) -(175,19)3) , PSET , BF : POKE3 41,25 
5:GOTO23 

28 G0T014 

29 IFL=2THENL=3:Y=17:DRAW"C5"+AP 
$ (AP) : DRAW”BM93,183C8A)3" : A$="DES 
CENDING":GOSUB79:GOSUB4:LINE(93, 
183) -(17 5,19)3) , PSET,BF : POKE341,2 
55:G0T02 3 

3) 3 IFL=3THENL=2 : Y=17 : DRAW"C5"+AP 
$ (AP) : DRAW"BM1)3)3,183C8A)3" : A$="CL 
IMBING":GOSUB79:GOSUB4:LINE(93,1 
83) - (175,19)3) , PSET , BF: POKE3 41,25 
5:G0T023 

31 G0T014 

32 GOSUB13)3 : GOSUB13 2 : DRAWDW$ : GOS 


UB7 9:G0T012 6 

33 IFLV=1ANDLA=1THEN22 

34 DW$="BM3)3,183C8 " : A$="YOU HAVE 
MET DEATH IN A PIT":GOTO32 

35 DW$="BM8,183C8":A$="YOU HAVE 
BEEN DEVOURED BY A DEMON":G0T032 

36 DW$="BM25,183C8":A$="A BUG HA 
S STUNG YOU TO DEATH":G0T032 

37 DW$="BM1)3,183C8" :A$="A TREEMA 
N HAS BEAT YOU TO A PULP":GOTO32 

38 DW$="BM35,183C8":A$="YOU HAVE 
RUN INTO A GRAVE":GOTO32 

39 DW$="BM25,183C8":A$="A GHOST 
HAS DRAINED YOUR LIFE":G0T032 

4) 3 DW$="BM35,183C8":A$="A SPACEM 
AN HAS ZAPPED YOU":GOTO32 

41 DW$="BM35,183C8":A$="A POISON 
OUS SNAKE BIT Y0U":G0T032 

42 DW$="BM1)3,18 3C8" : A$="THE EVIL 
LORD HAS DISCOVERED Y0U":G0T032 

43 DW$="BM35,183C8":A$="YOU ARE 
BURNED TO A CRISP":G0T032 

44 GOSUB13)3 : GOSUB132 : DRAW"BM25,1 
83C8":A$="THIS POTION WILL ALLOW 

YOU TO":GOSUB7 9 

45 GOSUB13)3 : DRAW"C5" : GOSUB77 : LIN 
E( 1,183) -(254,19)3) , PSET, BF : DRAW" 
BM65,183C8":A$="LEVITATE OVER PI 
TS" : GOSUB79 : LINE (15)3,6)3)-(246,69 
) , PRESET, BF: DRAW"BM152,62C5" : A$= 
"LEVITATE TIME":GOSUB79 

46 DRAW"C8BM15)3,6)3E5R96NG5D2)3G5C 
8" 

47 LINE(15)3,7)3)-(246,8)3) ,PRESET, 
B:GOSUB77:DRAW"C5":LINE(1,183)-( 
254,19)3) , PSET, BF: LA=1: PMODE4,5: L 
INE(16,152)-(23,159),PRESET,BF:P 
MODE4,1: MID$ (M$ (2)3) , 3,1) =" @ " : POK 
E344,255:G0T014 

48 GOSUB13)3: GOSUB132 : PLAY"T4L8EF 
EDEFEDP16FP16EP16CD" : DRAW"BM15,1 
83C8":A$="YOU HAVE FOUND THE MAG 
IC SWORD":GOSUB79:GOSUB77:DRAW"C 
5":PMODE4,5:LINE(232,8)-(239,15) 

, PRESET, BF :MID$ (M$ (2) , 3)3,1) =" @ " : 
PMODE4,1 

49 DRAW"BM24,71"+C$(15)+ "BR4":A$ 
="SWORD":GOSUB79:SW=1:LINE(1,183 
)-(254,19)3) , PSET, BF:POKE343,255: 
GOTO14 

5) 3 GOSUB13)3: GOSUB132 : DRAW"BM2 5,1 
83C8":A$="YOU NOW HAVE THE MAGIC 

CHEST":GOSUB79:PLAY"T3L804CC03D 
EFBGCDEF":GOSUB77:DRAW"C5":LINE( 
1,183) - (254,19)3) ,PSET,BF 
51 DRAW"BM24,8)3C5" + C$ (9) +"BR4" : A 
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$="CHEST":G0SUB79:MID$(M$(2),13, 
1) = "@" :PMODE4,5:LINE(9 6,8) -(1)33, 
15),PRESET,BF:CE=l:G0T014 

52 G0SUB13 2: G0SUB13 )3: DRAW"BM7)3,1 
83C8":A$="THE BOW IS YOURS":GOSU 
B79:PLAY"T3L8DEDCFEGB04CEDF03DE" 
:GOSUB77:DRAW"C5":LINE(l,183)-(2 
54,19)3),PSET,BF:BO=l 

53 DRAW"BM24,89"+C$(16)+"BR4":A$ 
="BOW":GOSUB79:MID$(M$(2),13,1)= 

: PMODE4,5: LINE (96,8)-(l)33,15) 

,PRESET,BF:AL=2 

54 AX=RND(32):AY=RND(24):IFMID$( 
M$(AY),AX,1)="@"THENMID$(M$(AY), 
AX,1)="Q":AX=AX*8-8:AY=AY*8-8:AD 
$="BM"+STR$(AX)+","+STR$(AY)+C$( 
17):DRAWAD$ELSE54 

55 PMODE4,1:G0T014 

56 X=X+A:Y=Y+B:X1=X*8-16:Y1=Y*8- 
16:PMODE4,5:DRAW"C8"+AD$+"C5":GE 
T (XI,Yl)-(Xl+23,Yl+23),W,G:PMODE 
4,1:PUT(116,84 )-(139,1)37) ,W,PSET 
: DRAW"BM124,92A)3"+C$ (1) 

57 GOSUB13)3:DRAW"BM6)3, 183C8»:A$= 
"YOU HAVE THE ARROW":GOSUB79:AG= 
1:AL=L:DRAW"BM24,98C5"+C$(17)+"B 
R4":A$="ARROW":GOSUB79:MID$(M$(Y 
) ,X, 1)="@" :F0RS=1T01)3)3)3:NEXT: : LI 
NE(1,18 3) -(254,19)3) , PSET, BF: GOTO 
14 

58 GOSUB13)3: GOSUB13 2: PMODE4,5: DR 
AW"BM24)3,176C8"+C$ (4) : PMODE4,1: D 
RAW"BM5p,183C8":A$="YOU HAVE FOU 
ND THE KEY" : GOSUB79 : DRAW"BM24,1)3 
7C5"+C$(4)+"BR4":A$="KEY":GOSUB7 
9:GOSUB77:LINE(1,183)-(254,190), 
PSET,BF:KG=1 

59 MID$(M$(23),31,1)="@":G0T014 
6)3 GOSUB13)3:IFMID$(M$ (Y) ,X,1) = "U 
"ORMID$(M$(Y+l),X,l)="U"ORMID$(M 
$(Y-l),X,1)="U"ORMID$(M$(Y),X+1, 

1) ="U"ORMID$(M$(Y),X-1,1)="U"THE 
N61ELSEDRAW"BM75,183C8 »:A$="NOTH 
INGHAPPENS":GOSUB79:GOSUB77:DRAW 
"C5": LINE(1,183)-(254,19)3) ,PSET, 
BF:G0T014 

61 PLAY"T25505L255V31DEFGFEDFGFF 
DCD4EF":VD=1:DRAW"BM1)3,18 3 C8":A$ 
="THE EVIL LORD IS NO LONGER ALI 
VE":GOSUB79:GOSUB77:DRAW"C5":LIN 
E(l,183)-(254,19)3) , PSET ,BF:MID$ ( 
M$ (MY(22)),MX(22),1)="@":MY=MY(2 

2) *8-8:MX=MX(22)*8-8 

62 PMODE4,5:LINE(MX,MY)-(MX+7,MY 
+7),PRESET,BF:PM0DE4,l:G0T014 

63 GOSUB13)3: S=)3: A=J3: B=)3 


64 IFS=1)3)3THEN19ELSEA$=INKEY$: IF 
A$=CHR$(94)THENB=-1ELSEIFA$=CHR$ 
(1)3) THENB=1ELSEIFA$=CHR$ (8) THENA 
=-lELSEIFA$=CHR$(9)THENA=1ELSES= 
S+l:G0T064 

65 PMODE4,1:AP=1*-(A=-l)+2*-(B=- 
1)+3*-(A=l)+4*-(B=l):DRAW"C8"+AP 
$ (AP) : S0UND1)3)3,1: AX=X: AY=Y 

66 AR$=MID$(M$(AY+B),AX+A,1):CH= 
INSTR("@EGHNST" , AR$) : IFCH=)3THEN7 
6 

67 AX=AX+A:AY=AY+ B:IFCH=1THENPLA 
Y"T255V31L25505G#":G0T066 



68 GOSUB13)3:MID$(M$(AY),AX,1)="@ 
":PLAY"T255V3105DEFCG":A$="YOU H 
AVE HIT A ":DRAW"BM5)3,183C8":GOS 
UB79 : ON CH-1 GOSUB7)3,71,72,73,74 
, 75:GOSUB79:GOSUB77:DRAW"C5" : LIN 
E(l, 183)-(254,19)3) ,PSET,BF 

69 G0T076 

7)3 A$=" DEMON ": RETURN 

71 A$="BUG":RETURN 

72 A $="TREEMAN":RETURN 

73 A$="GHOST": RETURN 
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74 A$="SPACEMAN":RETURN 

75 A$="SNAKE":RETURN 

76 MID$(M$(AY),AX,1)="Q":AL=L:AG 
=0: AY=AY*8-8 : AX=AX*8-8 : AD$="BM"+ 
STR$(AX)+","+STR$(AY)+C$(17):PMO 
DE4,5:LINE(AX,AY)-(AX+7,AY+7),PR 
ESET,BF:DRAWAD$:PMODE4,1:DRAW"BM 
24,98C8"+C$(17)+"BR4":A$="ARROW" 

:GOSUB79:A=0:B=0:G0T019 

77 FORS=1TO2000:NEXT:RETURN 

78 LA=2:DRAW"BM50,183C8":A$="THE 
POTION HAS WORN OFF":GOSUB79:FO 

RS=1T02 500:NEXT:DRAW»C5":LINE(1, 
183)-(254,190),PSET,BF:LINE(150, 
54)-(251,80) ,PSET,BF:G0T02 3 

79 FORS=lTOLEN(A$):N=ASC(MID$(A$ 

,S,1))-64:IFN=-3 2 THENDRAW"BR8"EL 
SEDRAWL$(N) 

80 NEXT...RETURN 

81 GOSUB82:G0T083 

8 2 RESTORE:FORS=1TO30:READMX(S) , 
MY (S),DM(S):NEXT:RETURN 

83 'LETTERS FROM A TO Z 

84 L$(1)="BR2NR2BGD2ND3R4ND3U2BE 
BR":L$(2)="BRRNR2D3NR2D3NLR2EUHE 
UBEBR":L$(3)="BFBR4HL2GD4FR2EBU3 
BE2":L$(4)="BRNR2D6R2E2U2HBEBR2" 
:L$(5)="BRNR4D3NR3D3R4BU4BE2":L$ 
(6)="BRNR4D3ND3R3BE 3":L$(7)="BR4 
BFHL2GD4FR2EU2NLBUBE2" 

85 L$(8)="BRD3ND3R4ND3U3BR2":L$( 
9)="BRR2NR2D6NL2R2BU4BE2":L$(10) 
="BFBD3DFR2EU5BR2":L$(11)="BRD3N 
D3RNF3E3BR2":L$(12)="BRD6NR4 BE 6" 
:L$(13)="BRND6F2E2ND6BR2":L$(14) 
="BRDND5F4NDU5BR2":L$(15)="BR2NR 
2GD4FR2EU4BRBE" 

86 L$(16)="BRNR3D3ND3R3ENUBE2":L 
$ (17) ="BR2NR2GD4FRENFNHEU2NUBE2 11 
:L$(18)="BRNR3D3ND3RNF3R2ENUBE2" 
:L$(19) = "BFBD4FR2 EUHL2HUER2NFBR3 
":L$(20)="BRR2ND6R2BR2":L$(21) =" 
BRD5FR2EU5BR2":L$(22)="BRD4F2E2U 
4BR2" 

87 L$(23)="BRD5FENUFEU5BR2":L$(2 
4)="BRDF2G2DBR4UH2E2UBR2":L$(25) 
="BRDF2ND3E2UBR2":L$(26)="BFBD5N 
R4UE4UNL4 BR2" 

88 1 CHARACTERS 

89 C $(1)="BR3NRGNR3 FNG2RNF2 DLDRD 
F2LUHLG2RBR4BR2BU7":C$(2)="NR2DN 
R2 DNR2BFBDNR2DNR2DR2BR2NR2UNR2UN 
R2BUBENL2UNL2UNL2BR2":C$(3)="BR2 
NR2GDGDF2R2EUEUHBEBR2":C$(4)="BF 
BDNRGDFREUR3ND2RND2BU3BR" 

90 C$(5)="BRFGFEURDENEFG2LGLNHR5 


NELGFNR2HLGL2BE7BR":C$(6)="BR3RD 
LGNR3DNR3GNR5GR2NR5FRDNL2RBU7 BR3 
":C$(7)="F2R3NE2 DL3 FRFNR2NL5DNL3 
DNL5R2BU7BR":C$(8)="BR2NR3G2R2ER 
FNENR2GNF2 LNG2 D 3 GLRERNU2 FRBEBU6 B 
R" 

91 C$(9)="FBD3NRGD2R7U2HL2DLUBU2 
RBRBEEBR" : C$(10)="D7R7U3LURU3NL7 
BR":C$(11)="BD6DRU2END3RFRF2BU7B 
R" :C$(12)="BRNF2GD6RU6FD5EFU6ED7 
RNEU5NRUBEBR":C$(13)="BRNR5GNR7D 
6NR7ENU4R6NU5LNU4H 3 DE 3 BEBR" 

92 C$(14)="BRNR5GD2RDNE3GND2REND 
3FRND2R3NH4GDU2HERU2BUBR":C$(15) 
="BR4GD4NL2D2RNU7RU2NR2U4BEBR2": 
C$ (16) = "BR2D7RE2U3H2BR5":C$(17) = 
"BR3BFLG2NR5F2RBU5BR4":C$(18)="B 
R2NR3FNRDNRGNR3GNR5GNR7DNR7FR5BU 
7BR2" 

93 C$(19)="BRNR5GDFNR5FD3L2BR7L2 
U4H2RGFR2EUBUBR":C$(20)="BRNGR4F 
GLNL3HD3GLGFR5EHEBU4BR":C$(21)=" 
BR3NGRFGND4LND4GL2NR7RFR3G3LBR5L 
HBU6BR4":C$(2 2)="BR3GDGDGD2R7U2N 
L6HUNL4HULUBR4" 

94 C$(23)="BR6GDG2LGDFR3E2UH2BE2 
BR" :C$(0)="BR8AP$(1)="BM108,92 
A0"+C$(17)+"A0":AP$(2)="BM130,76 
Al"+C$(17)+"A0":AP$(3)="BM147,98 
A2 "+C$(17)+"A0":AP$(4)="BM124,11 
5A3"+C$(17)+"A0" 

95 RETURN 

96 LINE(80,25)-(176,35),PRESET,B 
F:DRAW"BM84,27C5":ON L GOSUB97,l 
03,108:GOSUB79:PMODE4,5:PCLS:RET 
URN 

97 A$=" DOLDRUMS" 

98 M$(1)="BBBBBBBBBBBBBBBBBJBBBB 
BBBBBBBBBB":M$(2)="BF@@@@@@@KK@@ 
@F@@@B@@@@@@@@C@@@B":M$(3)="B@@@ 
@F@@@@K@F@@@@@BFFF@FKKFFFK@B":M$ 
(4)="B@@F@@@@H@@@@@FFBJB@@@@@@@F 
@@@@B":M$(5)="B@@F@@FFFK@FK@F@@@ 
@@@@@K@@@@@KKB":M$(6)="B@@@K@@@@ 
K@KK@F@@F@F@@K@@K@F@@@B 

99 M$(7)="B@@KK@@@@@@KKC@@@F@F@@ 
@@@@K@@F@B":M$(8)="B@@@K@B@@@@@W 
@@F@@@F@@@@W@KK@@@B":M$(9)="B@@K 
K@BS@@@FFF@@@KKF@@K@@@K@K@@B":M$ 
(10)="B@KK@@BBB@@FH@@@@@@@@@K@K@ 
@@@@@B":M$(11)="B@@@@@@@@@@F@F@F 
@@@F@@@@@@@FF@@B" 

100 M$(12)="BLLLL@@@@F@@@@@@@@@@ 
S@@FFF@FF@@B" :M$(13)="B@@@LL@@@@ 
@BJB@@@@F@@@@@@K@H@@@B":M$(14)=" 
BM@@@LLLL@@@@@@@@L@@@LLL@K@@F@@B 
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":M$(15)="B@M@@@@@LL@F@@F@@LFF@@ 
@L@FFKK@@B":M$(16)="B@@@@@@@@L@@ 
F@@@@L@F@F@L@@@@@@@B" 

101 M$(17)="B@@MM@@N@@@@@@@@@LH@ 
@@@LLLLBBBBB":M$(18)="B@@@@@M@@L 
F@@@FF@L@FF@FF@F@BVB@B":M$(19)=" 
B@MM@@@@@L@@@@@F@L@@F@@@C@@C@@@B 
":M$(20)="B@RCM@@@@LL@FF@F@L@FFF 
F@FF@FFF@B":M$(21)="B@MM@@FF@@LL 
@F@@@LCF@@F@FH@C@F@B" 

1)32 M$(2 2)="B@F@@@@F@N@L@FFF@L@F 
F@F@F@FFFF@B":M$(23)="BN@@M@@@@@ 
@L@@C@@L@@@@F@@@@@@@@B":M$(24)=S 
TRING$(32,66):RETURN 
1)33 A$=" DUNGEONS" :M$ (1)=STRING 
$(32,66):M$(2)="B@B@@@BBBC@@IB@@ 
:M$(3)="B@B@B@@ 
B@@BBBBBBBBB@BBBB@B@BBBBB":M$(4) 
="B@@@BB@B@BB@B@@@@B@@C@B@@B@@@@ 
BB":M$(5)="B@B@@@@B@@@@@@B@BB@BB 
BB@BB@BB@@B":M$(6)="B@BB@B@@@B@B 
BBB@@@@B@@@@B@G@BB@B" 

104 M$(7)="B@B@@C@BBBBB@@BBBBBBB 
@B@@@B@@@@B":M$(8)="BC@@B@@E@@B@ 
BCB@@@B@B@BB@BBB@BBB":M$(9)="B@B 
BBBB@B@@@@@C@B@B@B@@B@@@B@C@B": M 
$ (1)3) ="B@@@B@@@BBBNBBB@@@B@BBBBB 
B0BBBBB":M$(11)="BB@BB@B@C@B@@@B 
BBBB@@@E@@B@@@@@B" 

1)35 M$ (12) ="B@@@@@B@BCB@B@@B@@@@ 
BB@B@@@BB@BB":M$(13)="B@B@BBB@@@ 
B@BB@BB@B@@B@BBBBB@@@B":M$(14)=" 
B@B@@@BBBBB@@@E@@@BBBB@B@@B@@@@B 
": M$(15)="B@BB@@@B@@@@BBBBB@B@@ 
@@@@BBBB@BB":M$(16)="BBB@@BCB@B@ 
BBVB@@@B@B@BB@B@@@@@B" 

106 M$(17)="B@@GBB@B@B@B@@B@B@BE 
B@@B@B@BBBCB":M$(18)="B@B@@BBB@B 
@B@BB@@@B@BB@BBB@BVB@B":M$(19)=" 
B@BB@B@@E@@@@@BBBBB@@@@B@B@@@B@B 
" :M$ (20)="B@B@@@@B@BBB@BB@B@@@BB 
@B@B@BBBBB":M$(21)="B@@@B@BB@B@@ 
@@@@@@B@@B@G@B@@@@@B" 

1)37 M$(22)="BBB@BBB@@B@BBB@BBBBB 
@BBB@BBBBB@B":M$(2 3)="B@@@C@B@BB 
@@@BE@C@@B@@C@@@@@@@@B":M$(24)=S 
TRING$(32,66):RETURN 
1^8 A$=" CATACOMBS":M$(1)=STRIN 
G$(32,"B"):M$(2)="B@@@B@B@@@C@B@ 
@@@@@@@@@@@@@@BO@B":M$(3)="B@BBB 
@@@BBB@B@BBBBBBBBBBBBB@@B@B":M$( 
4)="B@@TBBB@B@B@@@B@@@@@@@@@@@BB 
BBCB":M$(5)="BBB@B@@U@@BBB@B@BBB 
BBBBBB@@@@B@B":M$(6)="B@@@@@BB@@ 
@@@@B@B@@@B@@@BBBB@B@B" 

1)39 DRAW"BM8J3,27" :M$ (7) ="B@BBBBB 


BBBBBBBB@B@B@B@BBB@@B@B@B":M$(8) 
="B@B@@@@@@@@@@@@@B@@@B@BC@@BB@B 
@B":M$(9)="B@M@BBBBBBBBBBBBB@B@@ 
@@@@BB@@B@B":M$(1P)="B@@@@@@B@@@ 
@@@@@B@BBBBBB@B@@BB@B":M$(11)="B 
@B@BB@@@BB@BBB@@@B@C@@B@B@BBB@B" 
11)3 M$ (12) ="BTB@@@@BBB@TB@@@BBB@ 
BB@B@B@@@B@B":M$(13)="B@@@BB@@@B 
@BB@B@@@@@@BBBBBBB@B@B":M$(14)=" 
BBB@@@@B@B@@@@BB@BBB@T@@@C@B@B@B 
":M$(15)="B@@@BTBB@BB@BBB@@@@BBB 
B@BB@B@B@B":M$(16)="B@B@B@@@@@@@ 
BVBBB@BB@@B@@B@B@B@B" 

111 M$(17)="B@@@@@BBB@B@@@@@BBB@ 
@BBBBB@B@@@B":M$(18)="BBBBB@@@@@ 
BBBBB@@@T@BB@@@B@BBBBB":M$(19)=" 
B@@@BB@BBBB@@B@@B@B@ @B@B@B@@@@@B 
":M$(2)3)="B@BBB@@@T@BB@C@BB@BB@@ 
@@BBBBB@BB":M$(21)="B@@@B@BBB@@B 
BBBB@@@BBEBBB@@@B@@B" 

112 M$(22)="B@B@T@@@BB@@BB@@CBBB 
@@@B@@B@BB@B":M$(23)="B@B@B@B@@B 
B@@B@BBB@@@B@@@BB@@@DB":M$(24)=S 
TRING$(32,"B"):RETURN 

113 DATA 8,17,14,8,9,19,19,17,8, 
26,21,8,13,1)3,8,9,4,8,2,23,14,1)3 
,22,14,28,13,8,21,12,19 

114 DATA 24,21,7,23,11,5,12,10,1 

4.9.19.5.15.23.5.8.8.5.15.14.5.2 
0,17,5,4,17,7,27,6,7 

115 DATA 22,21,5,8,5,21,6,15,20, 

9.20.20.19.18.20.22.14.20.5.22.2 
0,2,12,20,12,12,20,4,4,20 

116 PMODE4,5:MN=RND(10)+L*10-10: 
IFASC(MID$(M$(MY(MN)),MX(MN),1)) 
ODM(MN) +64THEN14 

117 D=RND(4):ON D G0T0118,119,12 

0,121 


118 MA=0:MB=-1:G0T0122 

119 MA=0:MB=1:G0T0122 

120 MA=-1:MB=0:GOTO122 
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121 MA«1:MB«0 

122 IFMID$(M$(MY(MN)+MB),MX(MN)+ 
MA,1)="@"THEN124 

123 GOTO116 

124 MX(MN)=MX(MN)+MA: MY(MN)=MY( 
MN)+MB: MX=MX(MN)*8-8: MY=MY(MN) 
*8-8: DRAW"A)3BM"+STR$ (MX) +", "+ST 
R$(MY): DRAWC$(DM(MN)): MID$(M$( 
MY(MN)),MX(MN),1)=MID$(M$(MY(MN) 
-MB),MX(MN)-MA,1): MID$(M$(MY(MN 
)-MB),MX(MN)-MA,1)="@" 

12 5 MX=(MX(MN)-MA)*8-8:MY=(MY (MN 
)-MB)*8-8:LINE(MX,MY)-(MX+7,MY+7 
),PRESET,BF:G0T02 3 

126 LINE (116,84)-(139,1)37) ,PRESE 
T,BF:DRAW"C5BM117,84NR2GNR3DNR2D 
REFBEBR5NR5DNL3NR8DNL4NR9DNR10L5 
DR2GLDR2DNR13L2FNR13 DR4DL3FNR9ND 
3E5RNL3HLHR3ER5DNL2DLGR2G2FL4HGL 
ER2D2NR3G2NR3NL4LGLGDRDFUED2RU2F 
DEURUHLR3" 

127 DRAW"NU2BFF5DL2UR3UL2ERBU16L 
HGER2UL3UR2DLBG14 G5HLDR2 FL3FR2" 

128 F0RS=1T04:PCOPY S TO S+4:NEX 
T:PMODE4,5: F0RS=1T0192 :PUT (J3,S) - 
(255,S),W,NOT:NEXT 

129 A$=INKEY$:PMODE4,5:SCREEN1,1 
: F0RTZ=1T01J3J3: NEXT: PMODE4,1: SORE 
EN1,1: F0RTZ=1T01J3J3 :NEXT: IFA$=CHR 
$ (13) THENSCREEN.0 : RUNELSEIFA$="Q" 
THENCLS:POKE65494,0:ENDELSE129 
13)3 DRAW"C5"+AP$ (AP) :RETURN 

131 LINE(116,84)-(139,107),PRESE 
T,BF:RETURN 

132 PLAY"T25505V31":X=X+A:Y=Y+ B: 
X1=X*8-16:Y1=Y*8-16:PMODE4,5:GET 
(XI,Yl)-(Xl+23,Yl+23),W,G:PMODE4 
, 1:PUT(116,84)-(139,1)37) ,W,PSET: 
DRAW"BM124,92AJ3"+C$ (1) : F0RS=1T08 
:PUT(116,84)-(139,1)37) ,W,NOT:PLA 
Y"CDF":NEXT:RETURN 

133 LINE (J3,)3)-(255,9) , PSET, BF: A$ 
="EVIL CRYPT BY CURT KEISLER":DR 
AW"BM35,2C8AJ3" : GOSUB79 : DRAW"C5" 

134 PRINT@288,"DO YOU WANT INSTR 
UCTIONS (Y/N) ?"; 

135 A$=INKEY$:IFA$="N"THEN156ELS 
EIFA$="Y"THEN13 6ELSE13 5 

136 CLS)3 : LINE (6,9)-(69,19) , PSET, 
B:LINE-(6,13J3) ,PSET,B:DRAW"BM19, 
11":A$="ITEMS »:GOSUB79 

137 DRAW"BM1J3,21"+C$(17) +"BR4" : A 
$="ARROW" : GOSUB79 : DRAW"BM1J3,3)3" + 
C$(16)+"BR4":A$="BOW":GOSUB79: DR 
AW"BM1)3,39"+C$ ( 9)+"BR4 " : A$="CHES 
T":GOSUB79 


138 DRAW"BM1)3,48 "+C$ (1)3) +"BR4": A 
$="DOOR" : GOSUB79 : DRAW"BM1J3,57 "+C 
$(12)+"BR4":A$="FENCE":GOSUB79:D 
RAW"BM1)3,66"+C$ (4) +"BR4" :A$="KEY 
":GOSUB79 

139 DRAW"BM1J3,75"+C$ (18) +"BR4 " : A 
$="POTION" : GOSUB79 : DRAW"BM1)3,84 " 
+C$(11)+"BR4":A$="ROCK":GOSUB79: 
DRAW"BM1J3,93 "+C$ (2 2) + "BR4 " : A$="S 
TAIRS":GOSUB79:DRAW"BM1)3,1)32"+C$ 
(15)+"BR4":A$="SWORD":GOSUB79 
14)3 DRAW"BM1)3,111"+C$(6) +"BR4 " : A 
$="TREE" : GOSUB79 : DRAW"BM1J3,12J3" + 
C$(2)+"BR4":A$="WALL":GOSUB79 

141 LINE(6,136)-(69,155),PSET,B: 
LINE-(6,18 8),PSET,B:DRAW"BM16,13 
8":A$="DEADLY":GOSUB79:DRAW"BM19 
,147":A$="ITEMS":GOSUB79 

142 DRAW"BM1)3,159"+C$ (3) +"BR4 " :A 
$="PIT" :GOSUB79 : DRAW"BM1J3,168"+C 
$(23)+"BR4":A$="FIRE":GOSUB79:DR 
AW"BM1)3,177»+C$ (13) +"BR4" : A$="GR 
AVE":GOSUB79 

143 LINE(79,9)-(249,19),PSET,B:L 
INE-(139,58),PSET,B:LINE-(79,19) 

,PSET,B:DRAW"BM116,11":A$="DEADL 
Y ENEMIES":GOSUB79 

144 DRAW"BM83,21"+C$(7)+"BR4":A$ 
="BUG" :GOSUB79: DRAW"BM83,3J3"+C$ ( 
5)+"BR4":A$="DEMON":GOSUB79:DRAW 
"BM83,39"+C$(14)+"BR4":A$="GHOST 
":GOSUB79:DRAW"BM83,48"+C$(2P)+" 
BR4":A$="SNAKE":GOSUB79 

145 DRAW"BM144,21"+C$(21)+"BR4": 
A$="EVIL LORD":GOSUB79:DRAW"BM14 
4,3J3"+C$ (19) +" BR4 " : A $=" S PACEMAN" 
:GOSUB79:DRAW"BM144,39"+C$(8)+"B 
R4":A$="TREEMAN":GOSUB79 

146 LINE(79,63)-(249,73),PSET,B: 
LINE-(79,188),PSET,B:DRAW"BM124, 
65":A$="INSTRUCTIONS":GOSUB79 

147 DRAW"BM83,75":A$=" YOU ARE 
WILLIE THE":GOSUB79:DRAW"BM83,8 

4":A$="WIZARD ":GOSUB79:DRAWC$(1 
) : PSET (14 5,9,0) : DRAW"BM147,84" : A$ 
="THE EVIL LORD":GOSUB79 

148 DRAW"BM83,93":A$="HAS TAKEN 
YOUR SPELL":GOSUB79 

149 DRAW"BM83,1J32" : A$="BOOK TO U 
SE AGAINST THE":GOSUB79:DRAW"BM8 
3 , 111":A$="GOOD":GOSUB79:PSET(11 
2,117):A$=" HE HAS PUT YOU IN":G 
OSUB79 

15J3 DRAW"BM83,12)3" : A$="HIS EVIL 
CRYPT YOU MUST":PSET(185,126):GO 
SUB79:DRAW"BM83,129":A$="ESCAPE 
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AND SAVE THE":GOSUB79 

151 DRAW"BM8 3,138":A$="WORLD USE 
THE ARROW":GOSUB7 9:PSET(120,144 

):DRAW"BM83 / 147":A$="KEYS TO TRA 
VEL THROUGH":GOSUB79:DRAW"BM83,1 
56":A$="THE CRYPT":GOSUB79:PSET( 
155,162) 

152 DRAW"BM99,170S8":A$="HIT ENT 
ER":GOSUB79:DRAW"S4" 

153 SCREEN1,1:S=63 

154 A$=INKEY$:S=S+1:PUT(79,S)-(2 
49,S),W,NOT: IF S=73 THEN S=63 

155 IF A$<>CHR$(13) THEN 154 

156 CLS0:SCREEN0,0:PMODE4,1:LINE 
(0,9)-(255,192),PSET,BF 

157 DRAW"C8BM107,75M114,65R30M14 
8,75NL41D50L41U50BM0,10ND182M35, 
0R185M25 5,10NL2 55D182L255U10R255 
BM115,83R25D25L25U25":DRAW"BM115 
,116C8":A$="VIEW" 

158 GOSUB79:DRAW"BM70,48NF10ND10 
L60NF10D56F10":LINE(20,58)-(80,6 
8),PRESET,BF:LINE(20,70)-(80,114 
),PRESET,BF:DRAW"BM33,60C5":A$=" 
ITEMS":GOSUB79:GOSUB131 

159 DRAW"C8BM90,168NR74E8R58F8D1 
0L74U10BM92,176A3"+C$(17)+"A0BM9 
9,170":A$="MESSAGES":GOSUB79:DRA 
W"BM156,17 6A3"+C$(17) + "A0" 

160 FOR S=1 TO 55 STEP 4: LINE(0 
,55-S+10)-(S+l,10),PRESET: LINE( 
255,55-S+10)-(254-S,10),PRESET: 
LINE(0,126+S)-(S,181),PRESET: LI 
NE(255,126+S)-(254-S,181),PRESET 
: NEXT 

161 LINE(75,20)-(181,40),PRESET, 
B:LINE(80,25)-(176,35),PRESET,BF 

162 SCREEN1,1:RETURN 

163 IF KG=1 AND VD=1 AND CE=1 TH 

EN 164 ELSE 23 

164 IF X=18 AND Y=2 THEN 166 

165 SOUND50,4:DRAW"BM90,183C8":A 
$="WRONG DOOR":GOSUB79:DRAW"C5": 
FORS=1TO1250:NEXT:LINE(1,183)-(2 
54,190),PSET,BF:G0T023 

166 GOSUB130:PLAY"01CP255A":PMOD 
E4,5:LINE(136,0)-(143,7),PRESET, 
BF:GET(128,0)-(151,16),W,G:PMODE 
4,1:LINE(115,83)-(140,108),PRESE 
T,BF:PUT(116,92)-(139,107),W,PSE 
T:GET(116,92)-(139,99),W,G:DRAW" 
BM124,92"+C$(l):PLAY"CP255A" 

167 LINE(115,83)-(140,108),PRESE 
T,BF:PUT(116,100)-(139,107),W,PS 
ET:DRAW"BM124,9 2"+C$(1) :PLAY"CP2 
55A" 


168 DRAW"BM40,183C8":A$="YOU HAV 
E SAVED THE WORLD":GOSUB79:DR$=" 
BM124,92BR3RFNFL3GFERF2DL2U2LD2L 
2U1" 

169 F0R0S=1T015 : DRAW"BM124,92C8" 
+C$(1)+"C5"+DR$:FORTZ=1TO100:NEX 
TTZ:DRAW"C8"+DR$ + "BM124,92C5"+C$ 
(1):FORS=1TO100:NEXTS,OS 

170 POKE65494,0:PLAY"V31":FORS=l 
T06:PLAY"V-T403L4EL8FL8G04L1C03L 
4V-P255DP255L8EL1FL4P255FL8GA04L 

IV- F03L4AL8BL4.04CDE03L4EL8FG04L 
1CV-L4DL8EL1FL803GL4.04EL4D03L8G 

V- L4.04EL4DP4":NEXT:POKE65495,0: 
G0T0128 

171 PMODE4,1:PCLS:FORS=0TO255STE 
P4:LINE(S,0)-(S,192),PSET:NEXT:F 
ORS=0TO192STEP4:LINE(0,S)-(2 55,S 
),PSET:NEXT:FORS=0TO9 6STEP4:LINE 
(0,96-S)—(S,0),PSET:LINE(160+S,0 
)-(255,S),PSET:LINE(255,96+S)-(2 
55-S,192),PSET:LINE(96-S,192)-(0 
,192-S),PSET:NEXT 



172 LINE(41,41)-(215,119),PRESET 
,BF:PMODE3,1:DRAW"S8BM60,45":A$= 
"EVIL CRYPT":GOSUB79:PSET(157,46 
):PSET(185,46):PMODE4,1:DRAW'S4B 
M120,64":A$="BY":GOSUB79:DRAW"BM 
85,74":A$="CURT KEISLER":GOSUB79 
:DRAW"BM64,90":A$="COPYRIGHT C 

":GOSUB7 9 

173 CIRCLE(146,93),6,1:DRAW"BRBF 
ED5GR2BR2BEFR2EU2NU2L3HUER2BR5NR 
2GDFNR2GDFR2EUHEUBEBR2NR4D2FR2FD 
GL2H" 

174 FORS=0TO4:LINE(36+S, 36+S)-(2 
19-S,123-S),PSET,B:NEXT:DRAW"BM8 
8,109":A$="PRESS ENTER":GOSUB79: 
SCREEN1,1 

175 IFINKEY$<>CHR$(13)THEN175ELS 
EPCLS : S CREEN0 : RETURN /3\ 
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^Adventurer' of 

Q&0PAI3&S TTR&JvttD 


Y 


Program by Philip Newton 


ou remember boasting how you, “took it single- 
handedly! Those 200 natives didn’t scare me a 
bit. I defeated their toughest warriors with my 
bare hands. The rest of’em just backed off while 
I simply walked up and snatched the stolen 
diamond away from the old chief.” 

You soon became quite a celebrity, retelling 
the story for anyone who would listen, while 
adding more suspense and danger each time. 
People everywhere believed you had barely 
escaped death by your sheer wits and brute 
strength alone. You were a respected hero for 
accomplishing the marvelous task. 

Of course, nobody knows what really hap¬ 
pened on your adventure to recover the rare and 
precious stone. Sure, according to reports, the 
diamond was stolen by a gruesome tribe of 
head-hunting cannibals. But, in reality, when 
you arrived on location in Africa, the diamond 
was quicky discovered in a rather small village, 
occupied by a peaceful, vegetarian tribe. And, 
it didn’t take you long to regain the treasure 
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which had been found and innocently taken by one of the village children. Of 
no use to the tribal members, it was easily exchanged for some food you carried 
in a pack. But why not steal a little glory for the rescue? After all, there was 
no one who could prove otherwise. 

A few weeks later, while still enjoying your fame and recognition as a hero, 
you are approached by a short and stocky, gray-haired man in a local pub. 
With nervousness in his voice, he says, “ I have heard of your courageous efforts 
in Africa and have come to make you an offer. I need an adventuresome explorer 
to travel to Egypt to complete a mission. Finding someone capable of navigating 
through the vast deserts has not been easy. But, I feel that you may be competent 
and daring enough to accomplish the task.” 

While taking a piece of paper from his pocket, he continues the story. “About 
three months ago, as a result of many years of research, I found an approximate 
location of the pyramid which has eluded archeologists and scientists for 
centuries — the pyramid of Cleopatra. There, within its walls, are hidden the 
fabulous treasures of the great queen. However, to this day, no one has been 
able to conquer the obstacles of the desert surrounding it.” 

The man unfolds a piece of paper appearing to be a map. “I think it is here,” 
he says, pointing to a spot on the paper. “I sent an archeologist named Dr. Jones 
to find the pyramid and return with its treasures. However, he radioed after 
about a week and said a medallion was found that was associated with the 
pyramid and he was certain of the tomb’s location.” The man pauses. 
“Unfortunately, I never heard from him again. Maybe he ran out of food or 
water, or was stung by a deadly desert scorpion. Of course, Jones might have 
foolishly tried to cross the treacherous Nile River.” 

More than intrigued with the proposition, you request further details and 
the mysterious character continues. “I am in desperate need of the items inside 
that tomb. You see, I hastily promised a prominent museum I would deliver 
25 artifacts from the pyramid before the fifteenth, which is only a week away. 
The museum paid me in advance and the money was used to repay researching 
debts, so now I can’t pay it back. I desperately need your help!” 

Realizing that you may really have to prove yourself if you tackle the 
proposition, you are apprehensive about jeopardizing your credibility. But then, 
the man pulls a yellow envelope from his hip pocket and flashes a large stack 
of green bills in front of your nose. “All for you, if you can complete the quest 
Jones started, within the next five days,” he offers, making the deal irresistable. 

Without thinking twice, you accept the challenge. How could anyone pass 
up the chance of earning that much money? 
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The man, eager to get you started, gives you the map. It pinpoints the location 
of the campsite from which you will start and the intricate trails of the 
expedition. He firmly concludes, “When you have collected 25 treasures, just 
press the red button on this radio, and I will come to pick you up. Oh, and 
one other thing! If it has been more than five days, don’t bother calling!” 

The Adventure of Cleopatra's Pyramid is a random Adventure requiring the 
full 64K of memory. Before loading, turn the computer off unplug the disk 
controller (if you have one), and then turn the computer back on and type, 
P0KE25,6: NE W . This process will assure that you have reached a cold start and 
will clear enough available memory. 

The Adventure accepts standard verbs and a complete list may be obtained 
by typing VERB. Single letter entries are accepted for the commands Look, 
Inventory and all six of the possible directions: North, South, East, West, Up 
and Down. Verbs may be shortened by typing only the first three letters and 
nouns, by typing only the first four (i.e., DRO STRT is the same as DROP STATUE 
or DROP THE SMALL STATUE). 

The Adventure also accepts multiple command input statements which allow 
up to three commands to be entered at the same time. This is done by linking 
commands together with commas. For example, you can type: GET FLASH¬ 
LIGHT, GET CANTEEN, GO SOUTH and all commands will be executed simultane¬ 
ously. And, if you get stuck, typing HELP might render some good advice. 

A game save feature is also included. To save a game you are playing, type 
SAVE and the computer will prompt you to insert a blank tape into the cassette 
recorder. Then, press the record and play buttons on the cassette recorder. After 
doing so, press any key and the computer will prompt you to enter a filename. 
The game will be saved at the point you left off in the Adventure. 

To load a previously saved game, simply type LOAD after loading and running 
the program, and the computer will prompt you to insert the game tape into 
the cassette recorder. Then, press the play button on the cassette recorder. After 
doing so, press any key. The computer will then prompt you to enter the filename 
previously saved on the game tape. The game will be loaded and in a few seconds 
you can begin playing the Adventure from the point you left off. 


Philip Newton is a high school junior. His favorite hobbies are playing 
Adventures, designing graphics, telecommunicating and programming. 
Questions or comments may be addressed to Philip at Rt.#3, Box 104, 
Cleveland, TN 37311. Please enclose an SASE when requesting a reply. 
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PYRAMID 64K ECB 


Caution — Packed Lines! 

Some of the lines in this program are “packed" and may be too long to enter in a normal fashion. If the CoCo stops accepting characters, 
press ENTER, go into the EDIT mode (type EDIT followed by the line number), press ‘X’ (the EDIT command for extending the line), 
and then type in the few remaining characters. (We do not recommend using this technique in your own programs as serious problems 
could result.) 


1 CLEAR500:CLS:INPUT"CAN YOUR CO 
MPUTER HANDLE HIGH SPEED";A$:C 
LS:A$=LEFT$(A$,1):IFA$="Y"THENJK 
=65495:POKEJK,0ELSEIFA$="N"THENJ 
K=65494:POKEJK,0ELSE1 

2 W=36:X=110:Y=50:DIMC$(W),C(W), 
R$(X),R(6,X),0$(Y),01$(Y),02$(Y) 
,0(Y):F0RC=1T0X:READR$(C):NEXT:F 
0RC=1T0Y:READO$(C),01$(C),0(C):N 
EXT:F0RC=1T0W:READC $(C),C(C):NEX 
T:FORC=1TOY:READO 2 $(C):NEXT:FORC 
=1T0X:READR(1,C),R(2,C),R(3,C),R 
(4,C) ,R(5,C) ,R(6,C) 

3 NEXT:F0RC=1T06:READT$(C),T1$(C 
):NEXT:F0RC=1T03:READA$(C):NEXT: 
FORC=0TO1STEP0 : A=RND (-TIMER) :UU= 
RND(4 7) :IFUU<3 5THENNEXTELSE0(12) 
=UU:0(15)=UU+RND(RND(6)):0(16)=U 
U+RND(10):T=1:0(4 6)=RND(25):0(18 
)=RND(25):O(6)=RND(25):0(47)=RND 
(25):FS=220:BU=6:HU=300 

4 RE$=CHR$(13):QT$=CHR$(34):TH=2 
00:CH=2:IN=1:TIMER=0:UU=0:CLS:PR 
INT0103 , "THE ADVENTURE OF": PRINT 
@134,"CLEOPATRA'S PYRAMID":PRINT 
@230,"COPYRIGHT (C) 1985":PRINT® 
263,"BY PHILIP NEWTON":POKE65494 
,0:G0SUB180:POKEJK,0:CLS:PRINT04 
80,; 

5 IFT>=2 7ANDT=< 8 3 0RT>=101ANDT=<1 
10THENIFO$(45)="A FLASHLIGHT"ORO 
(45) O500ANDO (45) <>T THENPRINT"I 
T IS TOO DARK TO SEE.":XX=1:GOTO 
27ELSEIFT=45ANDMU=1ANDSN=0ANDXX= 
0THENP$="YOU ARE TRAPPEDG0T01 
8 

6 IFT>=2ANDT=<70RT=90RT=110RT=13 
0RT>=16ANDT=< 2 4 ORT>=8 4 ANDT=<8 90R 
T=960RT=980RT=92THENP$=R$(2)+" 0 
BVIOUS EXITS LEAD TO THE ":G0T08 
ELSEIFT>=35ANDT=<54THENP$=R$(35) 

:G0T08ELSEP$="YOU ARE "+R$(T) 

7 IFR(1,T)=0ANDR(2,T)=0ANDR(3,T) 
=0ANDR(4,T)=0THEN13ELSEP$=P$+" 0 
BVIOUS EXITS LEAD TO THE " 

8 F=0:F0RC=1T04:IFR(C,T)>0THENF= 
F+l 

9 NEXT:IFF=1THENF0RC=1T04:IFR(C, 
T)>0THENP$=P$+T$(C)+".":G0T013EL 


SENEXT 

10 IFF>2THEN11ELSEF0RC=1T04:IFF= 
2ANDR(C,T)>0THENP$=P$+T$(C)+" AN 
D ":F=F-1:NEXTELSEIFF=1ANDR(C,T) 
>0THENP$=P$+T$(C)+".":G0T013ELSE 
NEXT 

11 FORC=1T04:IFR(C,T)>0ANDF>1THE 
NP$=P$+T$(C)+", ":F=F-1ELSEIFF=1 
ANDR(C,T)>0THENP$=P$+"AND "+T$(C 
):F=F-1 

12 IFF=0THENP$=P$+"."ELSENEXT 

13 IFR(5,T)>0THENP$=P$+" A PASSA 
GE HERE LEADS UP."ELSEIFR(6,T)>0 
THENP$=P$+" A PASSAGE HERE LEADS 

DOWN." 

14 IFT=910RT=940RT=9 50RT=97THENI 
FRND(10)<3ANDLEFT$(0$(4),3)="A K 
"THENO(4)=T 

15 IFT>=34ANDT=<65ANDRND(10)<40R 
T>=100ANDRND(10)<4THENO(2)=T:IFS 
N=0ANDO(2)=4 5THEN0(2)=0ELSEIFSN= 
0ANDO(2)=45THENO(2)=0 

16 IFVV=0ANDTIMER>21111ANDM0>15T 
HENVV=1ELSEIFT=910RT=97THENIFRND 
(7)=4THEN0(5)=T 

17 IFT>=1ANDT=< 2 6 ORT>=8 4 ANDT=< 8 9 
0RT=9 50RT=960RT= 9 8 THENIFVV=1ANDR 
ND(8)<3ANDLEFT$(0$(3),3)="A S"TH 
ENO(3)=T 

18 ZZ=1:JJ=0:F0RC=1T0Y:IFO(C)=T 
THENJJ=JJ+1:NEXTELSENEXT 

19 IFJJ>0THENP$=P$+" THERE IS ": 
GOSUB159:GOTO20ELSEGOSUB159 

20 KK=0:F0RC=1T0Y:IFO(C)=T THENK 
K=KK+1:IFKK<JJ THENZZ=1:P$=0$(C) 
+", ":GOSUB159ELSEIFO(C)=T ANDKK 
>1THENZZ=1:P$="AND "+0$(C)+" HER 
E.":GOSUB159ELSEIFO(C)=T THENZZ= 
1:P$=0$(C)+" HERE.":GOSUB159 

21 NEXT:P$=K$:K$="":Z Z=0:G0SUB15 
9:IFO(5)=T ANDRND(10)>7THENPRINT 
RE$"THE CROCODILE SLID DOWN THE 
BANKBACK INTO THE NILE.":O(5)=0E 
LSEIFO(2)=T ANDRND(10)<3ANDXX=0T 
HEN70ELSEIFO(3)=T ANDLEFT$(0 $(3) 

,3)="A S"ANDRND(10)<3THEN73 

22 IFO(5)=T ANDRND(6)=1THEN76ELS 
EIF0(4)=T ANDMID$(0$(4),3,1)="K" 
ANDRND(8)=6THEN75ELSEIFSC>=10THE 


202 







N74ELSEIFSC>=1THENSC=SC+1:PRINTR 
E$"THE SCORPION'S STING IS MAKIN 
G YOU WEAKER AND WEAKER..." 

23 IFSC>10THEN74ELSEIFFS=<0ANDFS 
>=-20THENPRINTRE $"THE FLASHLIGHT 

BATTERIES ARE DEAD."RE$:0$(4 
5) ="A FLASHLIGHT" : FS—21: G0T05EL 
SEIFFS=<20ANDLEFT$ (0$ (45) , 3)="A 
L"THENPRINT:P$="THE FLASHLIGHT I 
S GROWING DIMMER.":GOSUB159 

24 IFHU<100ANDHU>40THENPRINTRE$" 
YOU ARE HUNGRY."ELSEIFHU<40ANDHU 
>0THENPRINTRE$"YOU ARE STARVING. 
" ELSE I FHU=<0THENPRINTRE$" YOU STA 
RVED TO DEATH.":G0T0176 

25 IFT=45ANDSN=0ANDMU=0THENMU=1: 
PRINT:P$="AS YOU ENTER THE ROOM, 

A PLATFORM RISES FROM THE FLOOR 
AND STONE WALLS DECEND, TRAPPIN 
G YOU!" : R (1, T) =0: R (4, T) =0:0 (1)3) = 
T: GOSUB157ELSEIFO (2) =T ANDRND (1,0 
)>5THENH=RND(3):PRINTRE$"THE MUM 
MY SAYS,"RE$A$(H) 

26 IFTH<100ANDTH>40THENPRINTRE$" 
YOU ARE THIRSTY."ELSEIFTH<40ANDT 
H>0THENPRINTRE$"YOU ARE DEHYDRAT 
ING."ELSEIFTH=<0THENPRINTRE$"YOU 

HAVE DIED FROM THIRSTG0T0176 

27 IFA2$<>"...PR 

INTELSEM0=M0+1:TH=TH-1:HU=HU-1: N 

$="":A$="" PRINT:LINEINPU 

T"WHAT NOW? ";A $:PRINT:IFLEFT$(0 
$(45),3)="A L"THENFS=FS-1 

28 B$="":F0RD=1T0LEN(A$):IFMID$( 
A$,D,1)=","THENA2$=RIGHT$(A$,LEN 
(A$)-D):A$=LEFT$(A$,D-l)ELSENEXT 

29 Q=J3: F0RD=1T0LEN (A2 $) : IFMID$ (A 
2 $,D,1)=","THENQ=Q+1:NEXTELSENEX 
T 

30 IFQ>=2THENPRINT"0NLY 3 COMMAN 

DS AT A TIME!"...GOTO27ELSE 

Q=0: F0RU=1T0LEN (A$) : IFMID$ (A$,U, 
1)=" "ANDU>1THENA1$=LEFT$(A$,U-1 
):B$=MID$(A$,U+1,LEN(A$)-U):GOTO 
31ELSENEXT:A1$=A$ 

31 F0RU=1T0LEN(B$):IFMID$(B$,U,1 
)<>" "THENNEXT:G0T032ELSEF0RD=1T 
OLEN(B$):IFMID$(B$,D,1)=" "THENB 
$=MID$(B$,D+l,LEN(B$)-D):G0T031E 
LSENEXT 

32 Bl$="":B$=LEFT$(B$,4):IFB$="S 
LEE"THENB1$="BAG"ELSEIFB$="BACK" 
THENB1$="PACK"ELSEIFB$="LIGH"THE 
NB1$="FLAS"ELSEIFB$="CAT"THENB1$ 
="STAT"ELSEIFB$="AM0N"THENB1$="R 
EPL"ELSEIFB$="PAPY"THENB1$="SLAB 


"ELSEIFB$="BEEF"ORB$="JERK"THENI 
FAl$o"EAT"THENBl$=" JAR" 

33 IFB1$=""THEN34ELSEB$=STRING$( 
4-LEN(B $)," ")+B $:F0RG=1T0LEN(A$ 
):IFMID$(A$,G,4)=LEFT$(B$,4)THEN 
MID$(A$,G,4)=B1$:B$=B1$ELSENEXTG 

34 IFLEFT$(Al$,1)=" "THENA1$=RIG 
HT$(Al$,LEN(Al$)-1):G0T034ELSEIF 
LEFT$ (Al$ , 3 ) ="L0A"THENA=1: GOTO10 
8ELSEIFLEFT$(Al$,3)="SAV"THENA=2 
:GOTO108ELSEFORU=1TOW: IFLEFT$ (A1 
$,3)=LEFT$(C$(U),3)THENA=C(U):G0 
T036 

35 NEXT:PRINT"THAT DOESN’T MAKE 
SENSE.":PRINT"ENTER "QT$"VERB"QT 
$" FOR A VERB LIST.":G0T022 

36 IFA1$=A$THENIFA>=1ANDA=<3ANDA 
1$="G0"0RA=1ANDB$=""0RA>=7ANDA=< 
90RA>=11ANDA=<15 ORA=18 ORA=19 ORA= 
20THENPRINT"PLEASE BE MORE SPECI 
FIC.":GOTO22 

37 ONA GOTO38,45,47,52,64,68,78, 
80,89,91,1)32,1)35, 111, 116,12 3,126 
,163,17)3,172,177 

38 IFXX=1THEN5ELSEIFIN=5THENPRIN 
T"YOUR HANDS ARE FULL, YOU CAN'T 

HOLD ANYTHING MORE.":G0T022ELS 
EF0RG=1T0Y:IFB$=LEFT$(01$(G),4)A 
NDO(G)=500THENPRINT"YOU ALREADY 
HAVE.":GOTO22ELSENEXT 

39 IFT=8 4ANDB$="SKEL"0RT=8 4 ANDB$ 
="WHIP"ANDFD=10RT=84ANDB$="FED0" 
ANDFD=1THEN77ELSEIFB$="SAND"THEN 
IFT>=2ANDT=<130RT>=14ANDT=<260RT 
=950RT=960RT=98THENPRINT"Y0U CAN 
'T, IT SLIPS THROUGH YOURFINGERS 
.":G0T022 

40 IFB$="FEDO"ANDFD=0ORB$="WHIP" 
ANDFD=0THENPRINT"IT'S NOT HERE." 
:G0T025ELSEF0RG=1T0Y:IFB$=LEFT$( 
01$(G),4)ANDO(G)<>T ANDO(G)<501T 
HENPRINT"IT'S NOT HERE.":G0T025E 
LSENEXT 

41 F0RG=1T0Y:IFB$=LEFT$(01$(G),4 
)AND01$(G)<>""THENIFO(G)=T ORO(G 
)=501THENIFGO2ANDGO3ANDGO4AND 
GO5THENG0SUB46 :P$=Q$+" TAKEN. » : 
GOSUB159:IN=IN+1:IFO(G)=501THENC 
H=CH-1:0(G)=500:G0T022ELSE0(G)=5 
00:G0T022 

42 IFB$=LEFT$(01$(G),4)AND0(G)=T 
THENIFG=20RG=30RG=40RG=5THEN77 

43 NEXT 

44 PRINT"THAT CAN NOT BE DONE.": 
GOTO22 

45 F0RG=1T0Y:IFB$=LEFT$(01$(G),4 
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) ANDO (G) <>5J3J3THENPRINT"Y0U ARE N 
OT HOLDING IT.":G0T024ELSENEXT:F 
ORG=lTOY:IFB$=LEFT$(01$(G),4)AND 
0(G) =5J3J3THEN0 (G) =T: GOSUB46 : P$=Q$ 
+" DROPPED.":GOSUB159:IN=IN-1:GO 
TO 2 2 E LSENEXT:G0T04 4 

46 IFG=49THENQ$=0$(G):RETURNELSE 
F0RC=1T0LEN(0$(G)):IFMID$(0$(G) f 
0,1)=" "THENQ$=RIGHT$(0$(G),LEN( 
0$(G))-C):RETURNELSENEXT:Q$=0$(G 
):RETURN 

47 IFXX=1ANDPP=2THENPRINT"YOUR P 

ERSISTENCE HAS KILLED YOU.": 

G0T0176ELSEIFXX=1ANDPP<2THENPRIN 
T"YOU SHOULDN'T WALK AROUND IN 

THE DARK, IT IS TOO DANGEROUS. 
":PP=PP+1:G0T022 

48 IFB$="TENT"ANDT=1THENT=99:GOT 
05ELSEIFT=26THENIFB$="PYRA"ORB$= 
"CRAC"THENT= 2 7:G0T05 

49 F0RC=1T06:IFLEFT$(B$,3)=LEFT$ 
(T$(C),3)0RB$=T1$(C)0RA1$=T1$(C) 
ORLEFT$(Al$,3)=LEFT$(T$(C),3)THE 
N5J3ELSENEXT: PRINT"USE DIRECTIONS 

(N,S,E,W,U,D).":G0T022 
5J3 IFR (C, T) >J3THENT=R (C, T) : G0T05E 
LSEIFR (C,T) =<J3THENPRINT"THERE IS 
NO WAY TO GO THAT DIRECTIO 

N.":G0T02 2 

51 PRINT"THAT DOESN'T MAKE ANY S 
ENSE.":G0T022 

52 IFA$=A1$0RXX=1THEN5ELSEIFB$=" 
COFF"ANDT=58ANDO$(17)="TWO OPEN 
COFFINS "ANDO (13) =J3THENPRINT"THEY 

ARE FULL OF ANCIENT ITEMS.":0(1 

3) =T:0(14)=T:O(11)=T:G0T022 

53 IFB$="SKEL"ANDT=84ANDO (44 ) =J3A 
NDO (7) =J3THENPRINT" IT HAS A MEDAL 
LION IN ITS HAND AND A BLUE PAC 
K IS STRAPPED TO ITS BACK.":0(4 

4) =T:O(7)=T:GOTO24ELSEIFB$="CANT 
"ANDLEFT$(0$(1),2)="A "THENIFO(1 
) =5J3J30R0 (1) =T THENPRINT" IT HAS W 
ATER IN IT.":GOTO22 

54 IFB$="PLAT"ANDT=45ANDSN=J3THEN 
KL=1:P$="ENGRAVED UNDER A SMALL 
HOLE IS THIS: TO AGAIN BE FREE Y 
OU MUST GIVE SOMETHING THAT CAN 
MAKE MEN BLIND AND HELP THEM SEE 
. IT IS NOT RARE, BUT IN ABUNDAN 
CE, THAT YOU CAN FIND THIS SUBST 
ANCE.":GOSUB157:G0T02 2 

55 IFB$="PILL"ANDT=1J31THENP$=02$ 
(31):GOSUB159:G0T022ELSEIFB$="PY 
RA"ANDT=2 6THENP$="IT IS A HUGE S 
TRUCTURE. LOOKING UP AT IT MAKES 


YOU DIZZY. YOU NOTICE THAT THER 
E IS A VERY LARGE CRACK ON ITS 
NORTH SIDE.":GOSUB159:G0T022 
5 6 IFB$="C0FF"ANDT=62THENP$=02 $( 
22):GOSUB159:G0T022ELSEIFB$="CRA 
C"THENPRINT"THE CRACK IS LARGE E 
NOUGH FOR YOU TO EASILY FIT TH 
ROUGH IT.":G0T02 2 

57 F0RC=1T0Y:IFB$=LEFT$(01$(C),4 
) AND02$ (C) <>" "THENIFO (C) =5j3j30R0 ( 
C) =T ORO (C) =5 J31AND0 (44) =T ORO(C) 
=5J31AND0 (44) =5J3J3THENP$=02$ (C) : IF 
B$="FLAS"THEN61ELSEGOSUB159:GOTO 
22 

58 NEXT:IFB$="REVO"THENIFO(4 6)=T 
ORO (46) =5J3J3THENP$="THE WORD "+Q 

T$+"INDY"+QT$+" IS ENGRAVED IN I 
TS HANDLE AND IT HAS"+STR$(BU)+" 
BULLET" :IFBUOlTHENP$=P$ + "S IN 
IT. " : ZZ=J3 : GOSUB159 : G0T024ELSEP$= 
P$+" IN IT. " : ZZ=J3 : GOSUB159 :G0T02 
2 

59 IFB$="SKEL"ANDT=84THENPRINT"T 
HERE IS A SUN-SCORCHED FEDORA O 
N ITS HEAD, AND AN UNRAVELED W 
HIP AROUND ITS SHOULDER, BOTH O 
F WHICH ARE USELESS.":FD=1:G0T02 
2 

6J3 IFB$="SCOR"ANDO ( 3 ) =T ANDLEFT$ 
(0$(3),4)="A SC"THENPRINT"IT IS 
FLEXING ITS STINGER.":G0T022ELSE 
IFB$="COBR"ANDO(4)=T ANDLEFT$(0$ 
(4),4)="A KI"THENPRINT"IT LOOKS 
DEADLY. YOU BETTER NOT MESS WITH 
IT.":G0T022 

61 IFB$="FLAS"THENIFO(45)=T ORO( 
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45) =500THENQ=1: IFLEFT$ (0$ (4 5) , 3 ) 
="A F"THENP$=P$+" ANYWAY, IT IS 
OFF.":GOSUB159:G0T022ELSEIFLEFT$ 
(0$(45),3)="A L"THENP$=P$+" ANYW 
AY, IT IS ON.":GOSUB159:G0T022 

62 IFB$="BACK"ORB$="PACK"THENIFO 
(44)=T ORO(44)=500THENPRINT"IT L 
OOKS BIG AND ROOMY. IT COULDPROB 
ABLY HOLD A LOT OF OBJECTS.":GOT 
022 

63 PRINT"YOU SEE NOTHING INTERES 
TING.":GOTO22 

64 0=0:U=500:PRINT"YOU ARE CARRY 
ING: " 

65 F0RC=1T0Y: IFO (C) =U ANDC044TH 
ENPRINTO$(C);".":0=0+1 

66 NEXT:IFU=501THENRETURNELSEIFO 
(44) =500THENPRINT"A LARGE BACKPA 
CK."RE$RE$"IN THE BACKPACK, THER 
E IS:":GOTO67 ELSEIFO=0THENPRINT" 
NOTHING BUT THE LINT IN YOUR 
POCKETS.":G0T022ELSEG0T022 

67 0=0 :U=501:GOSUB65 : IFO=0THENPR 
INT"NOTHING.":G0T022ELSE22 

68 W=1:G0SUB91:P$="YOU RETURNED" 
+STR$(S)+" ARTIFACTS TO YOUR TEN 
T USING"+STR$(MO)+" MOVES.":GOSU 
B159:PRINT 

69 CLEAR:INPUT"CARE TO PLAY AGAI 
N (Y/N)";A$:A$=LEFT$(A$,1):IFA$= 
" Y"THENRUNELSEPOKE65494 , 0: END 

70 IFO(24)=500ORIN=1ANDO(45)=500 
THEN26ELSEF0RJ=1T0Y:IFO(J)=500TH 
ENO(J)=35+RND(19):NEXTELSENEXT 

71 0(45)=500:IN=1:PRINT:P$="THE 
MUMMY SAYS ANGERLY, "+QT$+"LEAVE 

THINGS ALONE !"+QT$+" IT THEN G 
RABS EVERYTHING YOU ARE CARRYING 
, EXCEPT YOUR FLASHLIGHT, AND WA 
LKS OFF!":G0SUB159:0(2)=0:G0T022 

72 F0RJ=1T0Y:IFO(J)=500THENO(J)= 
RND(54):IFO(J)<34THENO(J)=500:GO 
T07 2ELSENEXTELSENEXT:G0T02 4 

73 PRINTRE$"THE SCORPION STINGS 
YOU.":IFSC=0THENSC=1:G0T027ELSEI 
FSC>0THENSC=SC+5:G0T027 

74 PRINTRE$"THE SCORPION'S STING 
HAS MADE YOU TOO WEAK TO CONT 

INUE.":GOTO176 

75 PRINTRE$"THE COBRA STRUCK, BI 
TING DEEPLY INTO YOUR LEG. IT'S 
POISIONOUS VENOM RUSHED THROUGH 

YOUR VEINS,KILLING YOU IN A MAT 
TER OF MINUTES.":G0T0176 

76 PRINT:P$="THE CROCODILE, USIN 
G IT'S SHARP TEETH AND POWERFUL 


JAWS, CRUNCHES INTO YOU, ABRUPTL 
Y ENDING YOUR LIFE.":GOSUB159:GO 
T0176 

77 PRINT"WHY ON EARTH WOULD YOU 
WANT TO DO THAT?":GOTO22 

78 IFB$<>"SCEP"THEN51ELSEIFXX=1T 

HEN5ELSEIF0(6)O500THEN107ELSEPO 
KE65494,0:PLAY"V15T5L200O5ABDBCE 
B":POKEJK,0:IFO(2)=T THENPRINT"T 
HE MUMMY MOANED AND WALKED A 

WAY !":0(2)=0:G0T022ELSEIF0(4)=T 

THENPRINT"THE KING COBRA SLITHE 
RED AWAY !":0(4)=0:G0T022 

79 IFT=56ANDR(1,56)=0THENR(1,56) 
=57:POKE65494,0:PLAY"L255V3101AD 
CFBAGEDV16CGADV4EABCAEDB":POKEJK 
,0:P$="THE NORTH WALL CRUMBLES, 
AND FALLS TO THE GROUND WITH A L 
OUD CRASH !":GOSUB159:G0T022ELSE 
PRINT"NOTHING HAPPENED.":G0T022 

80 IFXX>0THEN38ELSEN$=LEFT$(B$,4 
):F0RC=1T0LEN(A $) :IFMID$(A$,C+1, 
3)="THE"ORMID$(A$,C+l,5)="MAGIC" 
ORMID$(A$,C+l,3)="TWO"ORMID$(A$, 
C+l,8)="SLEEPING"ORMID$(A$,C+l,6 
)="WOODEN"ORMID$(A$,C+l,6)="FILL 
ED"ORMID$(A$,C+l,6)="COPPER"ORMI 
D$(A$,C+l,4)="GOLD"THENNEXT 

81 IFMID$(A$,C+l,4)="CAND"ANDMID 
$(A$,C+10,4)="WRAP"ORMID $(A$,C+l 
,3)="AND"ORMID$(A$,C+l,6)="SILVE 
R"ORMID$(A$,C+l,5)="GLASS"ORMID$ 
(A$,C+l,3)="OLD"ORMID$(A$,C+l,4) 
="PILE"ORMID$(A$,C+l,2)="OF"ORMI 
D$ (A$,C+l,4)="DEAD"ORMID$(A$,C+l 
, 7)="LEATHER"THENNEXT 

82 IFMID$(A$,C+l,9)="TURQU0ISE"0 
RMID$(A$,C+l,5)="EMPTY"THENNEXTE 
LSEIFMID$(A$,C,1)=" "THENB$=MID$ 
(A$,C+l,4)ELSENEXT 

83 IFMID$(B$,4)=" "THENB$=LEFT$( 
B$ ,3):G0T083ELSEIFLEFT$(N$,LEN(B 
$))=B$THENINPUT"IN WHAT (1 WORD) 
";N$:PRINT 

84 IFB$="MEDA"ANDN$="HOLE"ANDO(7 
)<>500ORB$="MEDA"ANDN$="HOLE"AND 
To54THEN107ELSEIFLEFT$ (N$ , 4 ) ="B 
ACK"THENN$="PACK" 

85 IFT=54ANDR(2,T)=0ANDN$="HOLE" 
ANDB$="MEDA"THENR(2,T)=55:0(7)=T 
:POKE65494,0:PLAY"L2 50V501AAV10A 
AV15AAV20AAV25AAV30AA":POKEJK,0: 
P$="FOR A SECOND YOU HEAR A LOUD 

GRINDING NOISE, AND THEN THE WA 
LL SLIDES OPEN.":IN=IN-1:G0SUB15 
9:G0T022 
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86 IFB$="SCOR"ORB$="COBR"ORB$="M 
UMM"ORB$="CR0C"0RB$="SKEL"THEN44 
ELSEIFLEFT$(N$,4)="PACK"ANDCH=5T 
HENPRINT"IT CAN'T HOLD ANY MORE. 

":G0T022 

87 F0RK=1T0Y:IF0(44)=5)3)30R0(44) = 
T THENIFB$=LEFT$(01$(K),4)ANDKo 
44ANDN$="PACK"ANDCH<5THENIFO(K)= 
T ORO(K)=5)3)3THENCH=CH+l:G=K:GOSU 
B46:P$="THE "+Q$+" IS NOW IN THE 

BACKPACK.":GOSUB159:IFO(K)=5)3)3T 
HENO (K) =5)31: IN=IN-1: G0T022 : ELSEO 
(K) =5)31: G0T022 

88 NEXT:IFN$="PACK"THENIFO(4 4)=T 
0R0 (44) =5)3)3THEN44ELSE1)37 

89 IFT=58ANDO$(17)="TW0 COFFINS" 
ANDB$="C0FF"AND0 (18) =5)3)3THENPRIN 
T"THE COFFINS ARE NOW 0PEN.":0$( 
17)="TWO OPEN COFFINS":G0T024ELS 
EIFB$="COFF"ANDT=58ANDO$(17)="TW 
O OPEN COFFINS"THENPRINT"THEY AR 
E OPEN.":GOTO22 

9)3 IFB$="COFF"ANDT=58ANDO (18)05 
)3)3THENPRINT"YOU NEED SOMETHING F 
OR LEVERAGE.";:G0T022ELSEIFT<>58 
ANDB$="COFF"THENl)37ELSEIFB$="DOO 
R"THENPRINT"WHAT DOOR?":G0T022EL 
SE51 

91 S=)3 : IFO (6) =99THENS=S+1 

92 IFO(7)=99THENS=S+1 

93 F0RC=11T016:IFO(C)=99THENS=S+ 
1:NEXTELSENEXT 

94 F0RC=23T027:IFO(C)=99THENS=S+ 
1:NEXTELSENEXT 

95 IFO( 2)3 ) =99THENS=S+1 

96 IFO(29)=99THENS=S+1 

97 F0RC=32T034:IFO(C)=99THENS=S+ 
1:NEXTELSENEXT 

98 F0RC=36T038:IFO(C)=99THENS=S+ 
1:NEXTELSENEXT 

99 F0RC=4)3T043:IF0(C)=99THENS=S+ 
1:NEXTELSENEXT 

1)3)3 IFW=1THENRETURNELSEIFM0<75)3T 
HENP$="YOU HAVE RETURNED"+STR$(S 
)+" ARTIFACTS TO YOUR TENT, USIN 
G"+STR$(MO)+" TURNS. YOU NEED TO 
TAKE"+STR$(25-S)+" MORE THERE W 
ITHIN"+STR$ (75)3-MO)+" TURNS TO W 
IN.":GOSUB159:G0T022 
1)31 P$=" YOU HAVE OVER-EXTENDED Y 
OUR VISIT IN EGYPT. THE FIVE DAY 
S HAVE PAST. YOU HAVE BEEN PLAYI 
NG FOR"+STR$(MO)+" TURNS. THAT I 
S "+STR$((MO-750))+" MOVES TOO L 
ONG.":G0SUB15 9:G0T02 2 
1)32 IFB$="WATE"ANDO (1) =5)3)3ANDLEF 


T$ (0$ (1) , 2 ) ="A "THEN1)34 
1)33 IFB$="WATE"THENIF0(1)<5)3)30RL 
EFT$ (0$ (1) , 2 ) ="AN"THEN1)37ELSE44E 
LSE44 

1)34 IFTH>9)3)3ANDSC=)3THENPRINT"YOU 
CAN'T STILL BE THIRSTYG0T022 
ELSEO$(1)="AN EMPTY CANTEEN":PRI 
NT"AHHHHH!!! THAT'S REFRESHING." 
:TH=TH+2)3)3 : IFSC>)3THENSC=)3 : PRINT" 
YOU FEEL MUCH BETTER.G0T022ELS 
EG0T022 



$ (Al$, 3) ="LIG"THENIFO (45) =5)3)3AND 
FS>)3AND0$ (45) ="A FLASHLIGHT"THEN 
0$ (45)="A LIT FLASHLIGHT":PLAY"T 
5L25)305 ; 11; 11" : PRINT"THE FLASHLI 
GHT IS NOW LIT. " : XX=)3: PP=)3: G0T05 
106 IFLEFT$(Al$,3)="UNL"THENIFO( 
45)=500ANDO$(45)="A LIT FLASHLIG 
HT"THENPLAY"T5L25)305; 11; 11" : PRIN 
T"THE FLASHLIGHT IS NOW 0UT.":0$ 
(45)="A FLASHLIGHT":G0T05 
1)37 PRINT "YOU CAN'T DO THAT NOW. 
":G0T02 2 

1)38 POKE65494 , )3: Y=50: PRINT"INSTA 
LL CASSETTE. . . " ; :EXEC41393 : Z—1: 
PRINT:PRINT:PRINT"ENTER DATA FIL 
E NAME: ";:LINEINPUTN$:ONA G0T01 
)39,11)3 

1)39 OPEN"I" , Z, N$: F0RB=1T0Y: INPUT 
#Z,O(B):NEXTB:INPUT#Z,T,SC,FS,J, 
FD,0$(1),0$(3),0$(4),0$(9),0$(17 
),0$(45),0$(47),02$(47),0$(48),0 
$ (49) , IN,MU, W,TH, HU, CH,R(2,54) , 
R(l,56),MO,SN,KL,CD,XX,BU:CLOSE: 
P0KEJK,)3 : CLS : PRINT0480 , ; :G0T05 
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11J3 0PEN"0" , Z,N$: F0RB=1T0Y: PRINT 
#Z,O(B):NEXTB:PRINT#Z,T,SC,FS,J, 
FD,0$(1)/0$(3)/0$(4),0$(9),0$(17 
),0$(45),0$(47),02$(47),0$(48),0 
$(49),IN,MU,W,TH,HU,CH,R(2,5 4) , 
R(1,56),MO,SN,KL,CD,XX,BU:CLOSE: 
POKEJK,p:GOTO 2 7 

111 IFB$="SAND"THENF0RC=1T0LEN(A 
$):IFMID$(A$,C,5)="POUCH"THENA$= 
"SAND":B$="POUC"ELSENEXT 

112 IFB$="WATE"THENF0RC=1T0LEN(A 
$):IFMID$(A$,C,4)="CANT"THENB$=" 
CANT"ELSENEXT 

113 IFB$<>"CANT"ANDB$O"P0UC"THE 
N44ELSEIFB$="CANT"THENIFO (1)05)3 
)30RT<>910R0$ (1) ="A CANTEEN"THEN1 
)37 

114 IFB$="CANT"ANDO (1) =5J3J3ANDT=9 
1THENPRINT"THE CANTEEN IS FILLED 

WITH WATER.":0$(1)="A CANT 

EEN":G0T022ELSEIFB$="P0UC"ANDA$< 
>"SAND"THENINPUT"WITH WHAT (ONE 
WORD) » ;A$: PRINT: IFA$o"SAND"THEN 
PRINT"THAT DOESN'T WORK.GOTO22 

115 IFT>=2ANDT=<13 0RT>=16ANDT=<2 
50RT>=84ANDT=<890RT=920RT=950RT= 
960RT=98THENIF0$(9)="A LEATHER P 
OUCH"THENPRINT"THE POUCH IS NOW 
FILLED WITH SAND.":0$(9)="A F 
ILLED POUCH":GOTO22 

116 IFA1$="FILL"0RA1$="FIL"THEN1 
)37ELSEIFXX=1THEN5ELSEF0RC=2T05:1 
FB$=LEFT$ (01$ (C) , 4) ANDBU>)3THEN11 
7ELSEIFBU=0THENPRINT"YOU ARE OUT 

OF BULLETS.":G0T024ELSEIF0(46)< 
>5)3J3THEN1)37ELSENEXT: G0T051 

117 PL$="L255V3101ADCFBAGEDV16CG 
ADV4EABCAEDB":IFB$="CROC"ANDO(5) 
=T THENPOKE 65494,0:PLAYPL$:POKEJ 
K,)3: P$="YOU SHOT THE CROCODILE I 
N THE TAIL. THIS SEEMED TO STRON 
GLY UPSET HIM, SO HE ATTACKED YO 
U, MAKING YOU PAY DEARLY.":GOSUB 
159:G0T0176 

118 IFO(46) =5)3J3ANDB$="MUMM"AND0( 
2) =T THENPOKE65494, J3: PLAYPL$: POK 
EJK,)3:P$="Y0U BLEW A HOLE THROUG 
H ITS CHEST, BUT IT DIDN'T EVEN 
FLINCH.»:GOSUB159:BU=BU-1:G0T022 

119 IFB$="COBR"ANDO(4)=T ANDLEFT 

$ (0$ (4) , 4 ) =" A KI"THENPOKE65494 ,)3 
: PLAYPL$: POKEJK, J3: R=RND (-TIMER) : 
IFRND(4)=3THENPRINT"Y0U KILLED I 
T. ":0$(4)="A DEAD COBRA":BU=BU-1 
:G0T022ELSEPRINT"THE COBRA SLITH 
ERS AWAY, DODGING YOUR BU 


LLET." : 0 (4) =0: BU=BU-1: G0T022 
12)3 IFB$="COBR"ANDO (4 ) =T ANDLEFT 
$(0$(4),4)="A DE"ORB$ = "SCOR"ANDO 
(3)=T ANDLEFT$(0$(3) ,4)="A DE"TH 
ENPRINT"GIVE IT A BREAK, IT'S AL 
READY DEAD.":GOTO 2 2 

121 IFB$="SCOR"ANDO(3)=T ANDLEFT 
$ (0$ (3) , 3) ="A S"THENPOKE65494,J3: 
PLAYPL$: POKEJK, J3: R=RND (-TIMER) : I 
FRND(4)=30RBU=1THENPRINT"YOU KIL 
LED IT WITH AN EXCELLENT SHOT.": 
0$(3)="A DEAD SCORPION":BU=BU-1: 
G0T022ELSEPRINT"Y0U MISSED IT.": 
BU=BU-1:G0T022 

122 GOTO107 

123 IFLEFT$ (Al$, 3 ) ="SH0"THEN1)37E 
LSEIFB$="CAND"ANDO (4 7) =5J3J3AND02$ 
(4 7)>""THENPRINT"YUMMM.. THAT HI 
T THE SPOT.":01$(47)="WRAPPER":0 
$(47)="A CANDYBAR WRAPPER":HU=HU 
+3)3J3:02$ (47) =" ":G0T022 

124 IFB$="JERK"ORB$="BEEF"THENIF 
0(48) =5J3J3ANDLEFT$ (0$ (48) ,4)="A J 
A"THENPRINT"BURP. " : POKE65494, )3 : P 
LAY"T501L4V15C# " : POKEJK, )3 : 0$ (48) 
="AN EMPTY JAR" : HU=HU+3)3)3 : G0T022 

125 IFB$="JERK"ANDO$(48)="AN EMP 

TY JAR"ORB$="BEEF"ANDO$(4 8)="AN 
EMPTY JAR"ORB$="CAND"AND02$(47) = 
""THENPRINT"YOU ALREADY DID.": GO 
T022ELSEIFB$="CAND"0RB$="JERK"0R 
B$="BEEF"THEN1)37ELSEPRINT" YUCK. 
YOU HAVE A STRANGE APPETI 

TE.":G0T022 

126 P$="GET, TAKE, DROP, GO, (N) 
ORTH, (S)OUTH, (E)AST, (W)EST, ( 
U)P, (D)OWN, (L)OOK, (I)NVENTORY 


, ":GOSUB159:P$="SCORE, SHOOT, WA 
VE, OPEN, PUT, EAT, DRINK, SAVE, 
LOAD, LIGHT, UNLIGHT, POUR, PRE 
SS, FILL, CHANGE, HELP, VERB, AN 
D QUIT":G0SUB159:G0T02 7 

127 DATAAT YOUR CAMP.,"YOU ARE S 
TANDING IN A HOT, SANDY DESERT." 
,,,,,,STANDING BEFORE A HUGE SAN 
D DUNE.,,STANDING IN FRONT OF A 
HUGE SAND WALL. 

128 DATA,SURROUNDED BY SAND DUNE 
S.,,"ON A VERY HOT, DRY PLAIN.", 
STANDING ON A HIGH MESA.,,,,,,,, 

, ,IN A SMALL AREA ENCLOSED BY SA 
ND DUNES. 

129 DATASTANDING BEFORE A MAGNIF 
ICIENT EGYPTIAN PYRAMID.,IN A SM 
ALL ROOM.,IN AN OVAL SHAPED ROOM 
.,IN A DARK CHAMBER.,IN A LONG T 
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UNNEL.,IN A LONG TUNNEL.,IN A SM 
ALL ALCOVE.,AT THE END OF A LONG 
TUNNEL.,AT AN ENTRANCE TO A MAZ 
E OF CATACOMBS. 

130 DATA"YOU ARE IN A CONFUSING 
MAZE OF TWISTING, TURNING PASSAG 
ES THAT LEAD ",,,,,,,,/////r//// 

,,IN A SMALL ROOM. HIEROGLYPHICS 

HERE TRANSLATE— "CURSE ALL WHO 
ENTER THIS SACRED CRYPT." 

131 DATAIN A SMALL ROOM. THE AIR 
IS CRACKLING WITH ENCHANT- MENT 

.,IN A LARGE ROOM WHERE THE WALL 
S GLITTER WITH GOLD.,IN A PHARAO 
H'S TOMB.,IN A SMALL PASSAGEWAY. 

,IN AN UNDERGROUND ROOM.,IN AN U 
NDERGROUND TUNNEL.,IN A PHARAOH' 
S CRYPT. 

132 DATAIN A DARK CHAMBER THAT H 
AS HIGH STONE WALLS.,IN A TUNNEL 
.,IN A SMALL ROOM.,IN A DARK CHA 
MBER.,IN A PASSAGEWAY.,"IN A LAR 
GE, DARK ROOM.",IN A SMALL CHAMB 
ER.,IN A SMALL ROOM. 

133 DATAIN A DARK TUNNEL.,IN A L 
ONG CURVING TUNNEL.,IN A LONG CU 
RVING TUNNEL.,AT THE END OF A LO 
NG TUNNEL.,IN A LARGE ROOM.,IN A 

LARGE CHAMBER.,"IN A SMALL, DAR 
K ROOM.",IN A DARK TUNNEL.,IN A 
DARK TUNNEL.,IN A DARK TUNNEL. 

134 DATAIN A DARK TUNNEL.,"AT TH 
E END OF A LONG, DARK TUNNEL.",I 
N A VERY SMALL ROOM.,,, 

135 DATA,,,ON A PLAIN.,STANDING 
ON A BANK OF THE NILE RIVER.,,IN 

A MARSH NEAR THE NILE RIVER.,IN 
A DAMP FIELD.,ON A SANDY PLAIN. 

,,IN A MARSHY SWAMP AT THE EDGE 
OF THE NILE RIVER.,,IN YOUR TENT 

136 DATAIN A LARGE CHAMBER.,IN A 
SANCTUARY.,"IN A SMALL, DINGY R 

OOM.",IN A HALLWAY.,IN A GIANT S 
TOREROOM.,IN A HALLWAY.,"IN A LA 
RGE, OPEN CHAMBER.",IN A LITTLE 
ROOM.,STANDING IN A TINY CHAMBER 
.,IN A LARGE ROOM.,IN A SMALL RO 
OM. 

137 DATAA CANTEEN,CANT,99,A MUMM 
Y,MUMM,,A SCORPION,SCOR,,A KING 
COBRA,COBR,,A CROCODILE,CROC,,A 
MAGIC SCEPTER,SCEP,,A MEDALLION, 
MEDA,,A ROUND HOLE IN THE WALL,, 
54,A LEATHER POUCH,POUC,1,A STON 
E PLATFORM,,,A GOLD AND COPPER A 


XE,AXE,,A SILVER JUG,JUG, 

138 DATAA GOLD AND TURQUOISE BRA 
CELET,BRAC,,"A TINY, WOODEN SCUL 
PTURE",SCUL,,A GOLDEN DAGGER,DAG 
G,,A GOLD AND TURQUOISE FALCON,F 
ALC,,TWO COFFINS,,58,A CROWBAR,C 
ROW,,A TENT,,1,A GOLD AND COPPER 

URN,URN,62 

139 DATAA MUMMIFIED SKELETON,,,A 
N EMPTY COFFIN,,62,A COPPER VASE 
,VASE,29,A GOLD STATUE OF A CAT, 
STAT,28,A NECKLACE,NECK,3 2,A WOO 
DEN POT,POT,76,A SILVER PLATE,PL 
AT,77,A SKELETON,,84 

140 DATAAN OLD MANUS CRIPT, MANU, 8 

2, A SLEEPING BAG,BAG,99,ROWS OF 
HIGH PILLARS,,101,A GOLD REPLICA 

OF AMON, REPL, 102 , A VOTIVE TABLE 
T,TABL, 109 , AN ANCIENT EGYPTIAN R 
UG,RUG ,103, AN AMPHORA, AMPH, 1/34 , A 
SILVER AND GLASS GOBLET,GOBL, 10 
4 

141 DATAA GOLD CHALICE,CHAL,104, 
A COPPER BOWL, BOWL, 104, A PILE OF 

STICKS,STIC,107,AN OLD SCROLL,S 
CRO, 1/258 , A SILVER CUP, CUP, 108 , A C 
OPPER CANISTER,CANI,108,A SLAB O 
F PAPYRUS,SLAB,108,A LARGE BACKP 
ACK,PACK,0,A FLASHLIGHT 

142 DATAFLAS,99,A REVOLVER,REVO, 

,A CANDYBAR,CAND,,A JAR OF BEEF 
JERKY,JAR,501,BATTERIES,BATT,501 
,A RADIO,RADI,500 

143 DATAGO,3,TAK,1,DRO,2,GET,1,N 
,3,S,3,E,3,W,3,LOO,4,L,4,INV,5,1 
,5,QUI,6,WAV,7,PUT,8,OPE,9,SCO,1 
0,DRI,11,LIG,12,UNL,12,FIL,13,SH 
0,14,EAT,15,VER,16,NOR,3,SOU,3,E 
AS ,3,WES,3,HEL,17,CHA,18,UP,3,U, 

3, DOW,3,D,3,POU,19,PRE,2 0 

144 DATAIT IS EMPTY.,IT DOESN'T 
LOOK VERY HAPPY. IT MUST HAVE WO 
KE UP ON THE WRONG SIDE OF ITS C 
OFFIN THIS MORNING.,,,"IT IS LA 
RGE, GREEN AND UGLY. IT IS LOOKI 
NG AT YOU WITH A HUNGRY SMILE. 

145 DATAIT LOOKS LIKE A SMALL ST 
AFF WITH A CRYSTAL ON TOP OF IT. 

,IT IS CARVED FROM GOLD AND STON 
E IN THE FORM OF A CIRCLE.,,"IT 
IS SMALL, AND IT HAS A SHOULDER 
STRAP.",,"IT IS PRETTY DULL, IF 
YOU USED IT TO CUT ANYTHING, IT 
WOULD PROBABLY BREAK. 

146 DATAIT IS ONLY A JUG.,IT IS 
VERY BEAUTIFUL.,IT'S A SMALL STA 
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TUE OF CLEOPATRA.,IT IS MADE OF 
GOLD AND COPPER.,"IT LOOKS SO RE 
AL, IT COULD PROBABLY FLY.", 

147 DATAIT IS MADE OF CAST IRON 
AND SAYS SOMETHING ON IT—"ACE H 
ARDWARE.",,YUCK... THERE ARE ORG 
ANS IN IT.,,THIS IS PROBABLY WHE 
RE THAT WALKING BAND-AID CAME FR 
OM. 

148 DATAIT IS JUST A VASE.,ON TH 
E BASE OF THE STATUE THERE ARE H 
IEROGLYPHICS THAT TRANSLATE—"AL 
L BOW DOWN BEFORE THY POWER!",IT 

IS REALLY BEAUTIFUL; THE CRAFTS 
MANSHIP IS AMAZING. 

149 DATAIT'S AN OLD EGYPTIAN POT 
—NOTHING ELSE., IT IS JUST A SIL 
VER PLATE.,,THE WRITING IS NOT C 
LEAR ENOUGH TO TRANSLATE IT. 

150 DATA "IT IS MADE FROM BABY BL 
UE MATERIAL, AND IT HAS PINK ELE 
PHANTS SEWN ALL OVER IT.","THEY 
ARE HUGE, ROUND POLES.",IT IS A 
SMALL STATUETTE.,THIS IS A TABLE 
T THAT EGYPTIANS GAVE AS AN OFFE 
RING TO THE GODS.,IT'S JUST A DU 
STY OLD RUG. 

151 DATAIT IS A PIECE PROBABLY A 
CQUIRED FROM TRADING WITH THE GR 
EEKS.,IT IS ONLY A GOBLET.,IT'S 
LOOKS LIKE A LARGE CUP.,IT IS ON 
LY A BOWL. ,THEY'RE JUST STICKS — 
NO BIG DEAL.,THE WRITING IS NOT 
CLEAR ENOUGH TO READ.,IT IS ONLY 

A CUP.,IT'S JUST A CANISTER. 

152 DATA"IT IS SMALL AND HAS WRI 
TING ON IT. YOU CAN NOT, HOWEVER 
, MAKE OUT WHAT IT SAYS.",,IT IS 

GRAY AND RED AND HAS "RADIO SHA 


CK" WRITTEN ON IT 

. ,,IT IS 

CHOCOL 

ATE.,,THEY ARE "ENERGIZERS 
HAS A RED BUTTON ON IT. 

. " , IT 

153 DATA2,3,4,5,, 

,6,1,5,7, 

, ,1,9, 

10,11,,,17,10,,1, 

, , ,6,1,2, 

, ,6,2, 

12, , , ,13,,2,,,,9, 

, , 16,,,3, 

8, ,15, 

,,4,,,3,,,,14,3,, 

, , ,16, , 6 , 

, , ,7, , 


, 12 , , 8, , , 

,,4,18 

,,,,19,,,17,,,,18 

,20,,,,21 

, ,23,1 

9,,,,20,22,,,,,,26,21,,,,, 

,,26,,25,23,,,,,,24,, 

24,20, 

154 DATA,24,,22,, 

, ,26,29,, 

,28, , , 

30,,27,,,,,27,,,, 

,31,28,,, 

, ,33,3 

J 3 / / 3 2 , , , , , 31, , , , , 

31,34,,, , 

35, , ,3 

3,36,37,,34,,,,35 

,39,,,,35 

,40, ,3 

8, ,,39,, 37 ,,,,, 38 

,,36,,,37 

, ,41,4 


2,,,, 43,44,40,,,100,,40,,,,41,,4 


6.50.. ..46.45.41...71, , ,44,,, 44, 
,,43,,,,50,48,, , ,49, , ,47,, 

155 DATA50,48,51,,,,47,49,43,,,, 

53.52.. 49...51..53.....51.54.52, 

,,,,,53,,,54,,,56,,,,,55,,,,,56, 

58.59.. ....57..60.65..57......61 

/ /58,,,,62,60,,,,,,61,,,64,,,,, , 
,63,,65,,,66,59,64,,,,70,65,67,6 
8//,69,,,66,,,,70,66,,,,,67,70,, 

,, 68,66,, 69,,,, 45,72 , , , 

156 DATA,,73,71,,,,,74,72,,,,75, 
,73,,,74,,76,77,,,,,77,75,,,78,, 

75.76.. ..77.79......80.78....81, 

,79,,,80,,,82,,#83,,81,,,,84,82, 

,,,,85,83,86,,,,86,84,87,,,,,85, 

88.84.. .98.88..85...87..89.86.., 

90.92.. 88....89.91.92...93...90, 

,,89,,90,,,,97,91,94, , , 

157 DATA95,,,93 ,,,96,96,96,,,, ,9 

5.98.98.. ..93., ,,,,87,,96, , , , 1, , 
,, ,,42,,,,101,102,, ,103,100,,,10 

1.. ..104...101.10,5,,,,,,,10 2,,,, 

103.106.. ...105...107..108...106 
,,107,,109,,,,,,110,108,,,,,,109 

158 DATANORTH,N,SOUTH,S,EAST,E,W 
EST,W,UP,U,DOWN,D,-"GO AWAY FROM 

HERE!",-"GO BACK WHERE YOU CAME 
FROM!",-"LEAVE THINGS ALONE!" 

159 N$=" ":P$=K$+P$:IFLEN(P$)<32 
THEN162 

160 FORP=32T01STEP-1:IFMID$(P$,P 
,1)=N$ THENP1=P:G0T0161ELSENEXT: 
GOTO162 

161 PRINTLEFT$(P$,P-1):P$=MID$(P 
$,P+1):IFLEN(P$)>32THEN160 

162 IFZZ=0THENPRINTP$:RETURNELSE 
IFZZ=1THENPRINT""?:K$=P$:RETURN 

163 IFT=54ANDR(2,T)=0ANDXX=0THEN 
PRINT"FIND SOMETHING ROUND AND G 
OLD TO FIT THE HOLE.":G0T022EL 
SEIFT=1THENPRINT"LOGIC DOES NOT 
PERTAIN TO THE DESERTG0T022 

164 W=1:GOSUB91:W=3 6:IFS=25ANDMO 
<750THENPRINT"DON'T HESITATE, YO 
U HAVE WON IF YOU PRESS THE BUTT 
ON.":G0T022 

165 IFT>=1ANDT=<260RT>=84ANDT=<9 

80RT=99THENIFLEFT$(0$(45),3)="A 
L"THENPRINT"SOMETIMES TO "QT$"UN 
LIGHT"QT$" IS BRIGHT.":GOT 

022 

166 IFT=26ORT=100ANDO (45) O500TH 
ENP$="IF YOU GO IN, YOU WON'T CO 
ME OUT, IF A LIGHT, YOU ARE WITH 
OUT.":GOSUB159:G0T022ELSEIFXX=1A 
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NDO(4 5)=500THENPRINT"YOU "QT$"LI 
GHT"QT$" UP MY LIFE!":G0T022 

167 IFSC0>J3THENPRINT" SINCE YOU'R 
E WEAK, MAYBE YOU NEED A DRIN 
K. " : G0T022ELSEIFHU<1J3J3THENPRINT" 
YOU BETTER EAT SOMETHINGG0T02 
4ELSEIFTH<1J3J3THENPRINT"Y0U BETTE 
R DRINK SOMETHING.":G0T022 

168 IFT=990RT=280RT=84THENPRINT" 
ALWAYS "QT $"LOOK"QT$" AT EVERYTH 
ING . " : G0T024ELSEIFT=56ANDCD=j3THE 
NPRINT"A LITTLE WAVE OF MAGIC WO 
ULD GO GOOD IN HERE.":CD=1:G0T02 
2 

169 IFT=91ANDTH<9J3J3THENPRINT"DRI 
NK UNTIL YOU BUST.":G0T022ELSEIF 
T=4 5 ANDS N=j3ANDMU= 1 ANDKL=1THENPRI 
NT"THINK OF A DESERT STORM AND A 

PAIR OF SPECTACLES.":G0T022EL 
SEPRINT"HE HELPS THEM, WHO HELP 
THEMSELVES.":G0T02 2 
17J3 IFB$="BATT"ANDO(49)=500ANDFS 
=<J3THEN0$ (49)=" DEAD BATTERIES" : 0 
2$ (49) =" " : PRINT "OKAY. " : FS=FS+3J3J3 
:G0T022ELSEIFB$="BATT"THENIF0(49 
)<>500ORO(45)<>500THEN1J37 

171 IFB$="BATT"ANDO$(49)="DEAD B 
ATTERIE S"THENPRINT"YOU ALREADY H 
AVE.":G0T022ELSEIFB$="BATT"AND0( 
4 5) =5J3J3ANDO (4 9) =5J3J3ANDFS>J3THENPR 
INT"YOU DON'T NEED TO DO THAT YE 
T.":GOTO22ELSE51 

172 IFB$0"SAND"ANDB$0"WATE"AND 
B$O"H0LE"THEN51ELSEIFB$="H0LE"A 
NDT<>450RB$="H0LE"ANDSN=lTHENlj37 
ELSEIFB$="HOLE"ANDMID$(A$,6,1)=" 
S"THENB$="SAND"ELSEIFB$="HOLE"AN 
DMID$(A$,6,1)="W"THENB$="WATE" 

173 IFB$="WATE"ANDO$(1)="AN EMPT 
Y CANTEEN"ORB$="WATE"ANDO(l)<>50 
0THEN107ELSEIFB$="WATE"ANDT=45AN 
DSN=0THENPRINT"THE WATER SWIRLS 
DOWN THE HOLE.":0$(1)="AN EMPTY 
CANTEEN":G0T022ELSEIFB$="WATE"TH 
ENPRINT"IT'S ALL GONE.":0$(1)="A 
N EMPTY CANTEEN":GOTO22 

174 IFB$="SAND"ANDO$(9)="A LEATH 

ER POUCH"ORB$="SAND"ANDO (9) 0500 
THEN107ELSEIFB$="SAND"ANDT<>45OR 
B$="SAND"ANDSN=1THENPRINT"ALL TH 
E SAND IS OUT OF THE POUCH. 

":0$(9)="A LEATHER POUCH":G0T022 

175 IFB$="WATE"THENPRINT"THE WAT 
ER SWIRLS DOWN THE HOLE.":0$(1)= 
"A CANTEEN":G0T022ELSE0$(9)="A L 
EATHER POUCH":P$="THE SAND GOES 


DOWN THE SMALL HOLE, THE PLATFOR 
M DESCENDS, AND THE WALLS RISE!" 

: R (1,T)=71:R(4,T)=4 4:GOSUB157:SN 
=1:0(10)=0: G0T022 
17 6 PRINT:CLEAR:POKE 65494,0:PLAY 
"V10T2L2O2BP64BP64L8BP64L2BO3P64 
DP64L8D-P64L4D-P64L402BP64 BP64B- 
P64L1B":PRINT"LOOKS LIKE YOU HAV 
E GONE TO THATGREAT ADVENTURE GA 
ME IN THE SKY.":G0T069 

177 IFB$O»BUTT"THEN51ELSEIF0 (50 
)<>500THEN107ELSEIFMO>750THENPRI 
NT "IT IS NO USE, IT HAS BEEN MOR 
E THAT FIVE DAYS.":G0T025ELSEW= 
1:G0SUB91:W=36:IFS<25THENPRINT"Y 
OU DON'T HAVE 25 ARTIFACTS IN Y 
OUR TENT YET.":G0T022 

178 FORC=1TO30 : SCREEN0,1: PLAY"T2 
55 ; "+STR$ (RND (11) ) :SCREEN0,0:PLA 
Y" ; "+STR$(RND(11)):NEXT:CLS:P$=" 
A FEW HOURS AFTER PRESSING THE B 
UTTON, THE MAN ARRIVED AND GLADL 
Y AWARDED YOU WITH THE MONEY IN 
THE YELLOW ENVELOPE. CONGR" 

179 P$=P$+"ATULATIONS, YOU HAVE 
SAVED THE MAN'S HIDE AND MADE A 
SMALL FORTUNE IN"+STR$(MO)+" MOV 
ES.":PRINT064,;:GOSUB159:POKE654 
94 , 0 : G0SUB18 0: PRINT: PRINT: P$="TH 
ANK YOU FOR PLAYING THE ADVENTUR 
E OF CLEOPATRA'S PYRAMID. ZZ=0 : 
GOSUB159 : PRINT0480 , ; : G0T069 

180 PL$="V31T202L6EL16FL8GL203CL 
602DL16EL2FL6GL16AL8B03L3.FL602A 
L16BL403CDE02L6EL15FL8GL303CL6DL 
16EL2FL6GL16GL4EL6DL16GL4ED":PLA 
YPL$+LEFT$ (PL$ , 100) +"L4EL6DL16GL 
4EL6DL16CL2C" : PL$=" RETURN /R\ 
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1CON1A 


Program by Carlos Eduardo Rocha 

t was nearly nine years ago that the famous 
astronaut and explorer, Vade Mowban, em- 
r barked on his final voyage. He departed Earth 
toward Jupiter in his spaceship, lconia , in a 
gallant effort to observe and attempt to reveal 
the mystery of a huge black cube that was 
orbiting the planet. But once Mowban’s ship 
reached its destination, strange things began to 
happen. 

First, the lconia 's super computer, XAL, 
began to malfunction, refusing to execute 
commands. The machine seemed to take on a 
mind of its own and soon endangered Mow- 
ban’s life. Fortunately, he was able to deactivate 
XAL and avoid immediate catastrophe, never¬ 
theless, his efforts were deemed frivolous as the 
inexplicable happenings continued. 

Illuminating globes began sprouting on the 
surface of the dark cube. Within minutes, the 
globes burst and a variety of horrendous- 
looking creatures began emerging from them. 

Shortly after the sighting of the creatures, 
Mowban, for reasons still unknown, boarded 
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his space pod and ejected from the Iconia in the direction of the cube. And, 
even though he had the most sophisticated weaponry available on the Iconia , 
he took none with him aboard the tiny escape vessel. 

Some experts speculate that he was drawn by the powerful force of the cube. 
Others, however, think he had simply lost his mind. The last radio transmission 
received from the great explorer was, “Oh my! It’s full of boxes.” The Iconia 
has been drifting aimlessly ever since. 

Chosen f rom a cast of the world’s most proficient astronauts, your assignment 
is to return the Iconia to Earth. After weeks of space travel, you reach your 
destination and must complete the operation, remembering that if the mission 
is not 100 percent successful, the chances of returning alive are exceedingly slim. 

Ejection from the mother ship in your egg-like space pod is executed to 
perfection. The memory of a theme park joy ride fills your mind — but only 
briefly, for the wondrous Iconia quickly engulfs your entire visual spectrum. 
The ghost-like spaceship seems bound for its destiny as it glides unmanned in 
orbit between you and Jupiter. 

Checking your controls, you see that only 1,000 feet lie between you and the 
legend of the Iconia. As your pod reaches the vessel and you cross through 
the emergency gate, you recall the seemingly simple instructions of the mission: 

Reactivate the spaceship 

Reactivate the ship’s computer 

Program the ship’s return to Earth 

Leave the spaceship 

Iconia is a randomized Adventure requiring a joystick. Graphics represent 
the Iconia spaceship, which is divided into two main compartments: the body 
and the carrousel. To pass from the body to the carrousel or vice versa, you 
must first be in a room with a ladder. Use of the ladder is activated by pressing 
the ‘V’ key. The four arrow keys are used to move through the spaceship. 

In the lower part of the screen, eight icons are graphically displayed 
representing the verb and noun selections available in the Adventure. They are 
as follows: 


Open Door 


Use or Action 


0 s 

i—i 


Get 


Leave 


(J Push Button X Finish Mission 
[=1 


<0^ Look 


Show Inventory 
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To activate an icon, use the right joystick to place the small dot directly under 
the desired symbol and press the T key. If the icon represents both a verb and 
a noun, such as “Open Door,” the command will be executed immediately. 
However, if an icon representing only a verb is selected, the computer will wait 
for a noun to be typed in and entered from the keyboard. For example: To 
activate the command GET FRUIT: 




Use the joystick to place the dot here 


and press T. Then, type in FRUIT from the keyboard and press ENTER. 
What could possibly await you inside the Iconial Only time will tell. 


Carlos Eduardo Rocha is a business administration student at Puc-Minas 
Gerais in Brazil. He wrote his first program in 1984 and , since then , has 
developed a great interest in Adventure writing. One of Carlos' games has 
been published in Micro Sistemas, a Brazilian magazine. Questions or 
comments may be addressed to him at R. Caraca f 235/601 , Belo Horizonte 
— MG Brazil 30210. Please enclose an SASE when requesting a reply. 


rf ICONIA 32K ECB 


0 ' iconia - 1985 - PROGRAM BY 
CARLOS E.ROCHA -R.CARACA,235 
AP.601-SERRA-BELO HORIZONTE 
30210 MINAS GERAIS- BRAZIL 

1 X=RND(-TIMER):P0KE65495,0:PCLS 
:PM0DE4,1:SCREEN1,1:PM0DE3,1:PCL 
S:GOSUB1500 

2 G0T06 

3 C0L0R1:LINE(0,163)-(255,191), P 
SET,BF:DRAW"BM3,16 9 ?":GOSUB 950: 
GOTO150 

6 L=20:P=PEEK(65280):JY=JOSTK(0) 

10 CLS:CLEAR950:DIM L0$(43),D(4, 
41),0B$(11),0$(11),0(11),K$(26) 

11 L=21 

30 F0RX=1T011:READ 0B$(X),0$(X), 
0(X):NEXT:G0SUB992 
40 FORI=0TO43:READ L0$(I):NEXT 
50 F0RX=1T0 41:READ D(1,X),D(2,X 


),D(3,X),D(4,X):NEXT 
60 D$(1)="BR6R5NH3G3":D$(2)="BL5 
L5NE3F3":D$(3)="BU5U5NG3F3":D$(4 
)="BD5D5NH3E3" 

65 F0RX=1T026:READK$(X):K$(X)=K$ 
(X)+"BR4":NEXT 

67 M$(1)="VANTA":M$(2)="VIR0X":M 
$ (3)="V0LKA" 

69 GOSUB1520:G0T0210 

70 DATAA MAGNETIC CARD,CARD,4,A 
PROGRAM CARTRIDGE,CARTRIDGE,3 6,A 

LASER GUN,GUN,-1,A SPACE SUIT,S 
UIT,26,A SPACE SUIT BATTERY,BATT 
ERY,2 8 

71 DATA A MAGNETIC DISK,DISK,-1, 
A PIECE OF PAPER,PAPER,-1,A GREE 
N BROCHURE,BROCHURE,-1 

72 DATA A GREEN BOX,BOX,-1,A SMA 
LL BOARD,BOARD,-1,A HARD BALL,BA 
LL,-1, 

80 DATA CONTROL ROOM,RESTING R00 
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M,QUARTERS,LABORATORY,MEDICAL CE 
NTER,OBSERVATION DECK,WORKING RO 
OM,SERVICE ROOM 

90 DATA COMPUTER CENTER,D,D,D,D, 
D f D f D f D f ,,,,,,,,SPACE BAY I,ENER 
GY CENTER,SPACE BAY II,GREAT STO 
RAGE ROOM,,,D,PROPULSION CENTER, 
LINKING ROOM,PLATFORM I,PLATFORM 
II 

100 DATAD,D,D,GREAT STORAGE ROOM 
,SPACE,SPACE 

110 DATA,,,2,8,,,3,1,,,4,2,,,5,3 
///6,4,,,7,5,,,8,6,,,1,7, 

120 DATA, , — 34 , , 12 , , 18 , , , , 13 , , , ”1 
4 /10 / / ll / /19,///”12,17,,,20////2 

1.. ..15 

130 DATA10,,19,34,,13,20,18,,15, 

21.19.16.. 22.20.26.27.23.21...24 
,22,28,,25,23,,29 

140 DATA 30,24,,28,-35,22,,,,22, 

26., -36,24,,37,40,25,,,31,25,32, 
,-33,30 

145 DATA,,,31,,,,-31,,,18,-9, , ,- 
41,-26,,,-41,-28,,,,29,,,,40,,,, 
-40,,38,-39,29,,,,-35 

146 DATA U4E2F2D2NL4D2,NR3U6R3FD 
GNL3FDGBR,BUFNR3HU4ER3 BD6,NR3U6R 
3FD4GBR,NR4U3NR3U3R4BD6,U3NR3U3R 
4BD6,BUFR2EU2L2BL2D3U5ER2FBD5,U6 
D3R4U3D6 

147 DATAR4L2U6L2R4BD6,BUFR2EU5BD 
6,U6D3RNE3F3,NU6R4,U6F2E2D6,U6DF 
4DNU6,U6R4D6NL4,U6R3FDGL2BD3BR3 

148 DATABUU4ER2FD4GL2HFR2EHF2L,U 
6R3FDGL3R2F2D,R4U3L4U3R4BD6,BU6R 
4L2D6BR2 

149 DATABU6D5FR2EU5D6,BU6D2FD2FE 
U2EU2BD6,NU6E2F2NU6,UE4UBL4DF4D, 
BU5UDF2E2UDG2D3BR2,BU6R4DG4D1R4 

150 A$=INKEY$ 

151 IFA$o""THEN160ELSEGOSUB800: 
GOTO150 

160 IFA$<>"I"THEN162ELSE ON A+1G 
OSUB400,450,500,550,600,650,700, 
750 

162 IFM0=1THENG0SUB870 
165 IFA$O"V"THEN170ELSEIFL=1THE 
NL=34:G0T0210:ELSEIFL=34THENL=1: 
GOTO210:ELSE150 

170 IFASC(A$)<>94THEN180ELSEZ=D( 
3, L) :IFZ=0THENSOUND200,1:GOTO150 
:ELSEIFZ>0THEN175ELSEIFPE=1THENP 
E=0:G0T017 5ELSE995 
175 IF(L=350RL=36)ANDDE=0THENF$= 
"PLEASE DEPRESSURIZE THE CABIN": 
G0T03:ELSEGOTO201 


180 IFASC (A$) O8THEN190ELSE IF D 
(2,L)=0THENSOUND200,1:GOTO150:EL 
SEL=ABS(D(2,L)):G0T0210 

189 DRAW"BR7" 

190 IFASC(A$) O9THEN200ELSE IFD( 
1, L) =0THENSOUND200,1:GOTO150:ELS 
EL=ABS(D(1,L)):GOTO210 

200 IFASC(A$)<>10THEN150ELSEZ=D( 

4 , L) :IFZ=0THENSOUND200,1:GOTO150 
:ELSEIFZ>0THENDE=0:GOTO201ELSEIF 
PE=1THENPE=0:DE=0:GOTO201ELSE995 

201 L=ABS(Z) 

210 GOSUB1000:COLOR0:LINE(0,108) 
-(255,108),PSET:LINE(0,132)-(255 
,132),PSET:LINE(0,156)-(255,156) 

, PSET:GOSUB1180:IFL<9THENGOSUB99 

5 

212 IFLO$(L)=""THENLO$(L)="HALLW 
AY" 

213 IFLO$(L)="D"THENLO$(L)="A ST 
ORAGE ROOM" 

215 F$="WHERE:"+LO$(L):DRAW"BM3, 
106;":GOSUB950 

216 F$="HERE:":DRAW"BM3,170;":GO 
SUB950:B=0:F0RI=1T011:IFO(I)<>L 
THEN217ELSEIFB<3THEN DRAW"BM43," 
+STR$(170+B*10)+";":F$=OB$(I):GO 
SUB950:B=B+1:NEXT:G0T02 2 0:ELSEGO 
SUB757 

217 NEXT 

218 IFB=0THENDRAW"BM43,170;":F$= 
"NOTHING SPECIAL":GOSUB950 

220 PMODE4:F0RI=1T04:IFD(I,L)<>0 
THENDRAW"BM12 7,120;Cl;XD$(I) ;":N 
EXT:ELSENEXT 

221 PMODE3 

225 IFRND(13)=1THENH=RND(3):GOSU 
B845 

230 GOTO150 

400 F0RI=1T04:IFD(I,L)<0THEN410E 
LSENEXT:GOTO150 

410 GOSUB890:IF O(1)=1000THENPE= 
1:F$="DOOR OPENED":GOSUB950:PLAY 
"01V25T25L2C+C+C+C+":GOTO150 
420 F$="ACCESS DENIED":GOSUB950: 
PLAY"01V25T15L2CCCC":GOTO150 

449 RETURN 

450 GOSUB1200:COLOR1:LINE(3,160) 
-(255,191),PSET,BF:DRAW"BM3,170; 
":FOR X=1T011:IF 0$(X)=I$ THEN45 
3:ELSENEXT 

452 F$="YOU DONT HAVE A "+I$:GOT 
0499 

453 IFO(X) O1000THEN452 

455 IFX=2 AND L=9 THENIFFA=1THEN 
F$="THE COMPUTER XAL IS REACTIVA 
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TED" : FB=1: GOSUB99 9 : G0T01400: ELSE 
IFFA=0THENF$="THERE IS NO POWER 
HERE":G0T0499 

456 IFX=6 AND L=9THENF$="IT SAYS 
: ONE:BR TWO:PA":GOSUB950:DRAW" 

BM65,180;":F$="THREE:MIDDLE ICON 
IA":G0T0499 

460 IF X=11AND MO=l AND H=1THENF 
$="YOU EXPLODED THIS VANTA":GOSU 
B950:PLAY"V2L30T2005":F0RI=1T014 
:PLAY"V+AA+V+":NEXTI:MO=0:G0T015 

9 

462 IFX=3 ANDM0=1ANDH=2 THENF $="YO 
U HAVE KILLED THE VIROX":GOSUB95 
0:PLAY"T50;02;1;2;3;4;5;6":MO=0: 
GOTO150 

464 IFX=3ANDM0=1ANDH=3THENF$="Y0 
U HAVE FRIGHTENED VOLKA":GOSUB95 
0: PLAY"T50 ;02 ; 1; 2; 3 ; 4; 5; 6" : MO=0: 
GOTO150 

470 IFX=4AND0(4)=1000THENO(4)=20 
00:F$="SPACESUIT 0N":G0T0499 

471 IFX=5AND0(5)=1000THENO(5)=20 
00:F$="LIFE SUPPORT SYSTEM ON" : G 
0T0499 

498 F$="NOTHING HAPPENS" 

499 GOSUB950:GOTO150 

500 GOSUB1200 

505 IFG=3THEN508ELSEFORX=1TO11:I 
F0$(X)=1$ AND 0(X)=L THENO(X)=10 
00:G=G+1:GOTO520ELSENEXT:GOTO510 
508 F$="YOU ARE CARRYING TOO MUC 
H":G0T03 

510 IFX>12THENF$="Y0U CANT TAKE 
THAT"ELSEF$="I SEE NO "+I$ 

512 G0T03 

520 IFO$(X)="BALL"AND RND(10)<3T 
HENF$="THE BALL EXPLODES:YOU WER 
E KILLED":GOSUB999:GOTO10000:ELS 
EF$="YOU HAVE TAKEN IT":G0T03 
550 GOSUB1200 

555 IFL=330RL=270RL=350RL=36THEN 
F$="YOU CANT LEAVE IT HERE":GOTO 
3 

556 F0RX=1T011:IFO$(X)=1$ AND(0( 
X)=1000ORO(X)=2000)THENO(X)=L:G= 
G-l:F$="YOU HAVE LEFT IT":G0T03: 
ELSENEXT 

557 F$="YOU DONT HAVE A "+I$:GOT 
03 

600 IFLolANDLo35ANDLO36THENF$ 
="THERE IS NO BUTTON HERE":GOSUB 
999:GOTO150 

604 IFLO1THEN605ELSEIFO (10) =1TH 
ENF$="THE SPACESHIP IS REACTIVAT 
ED":FA=1:G0T03:ELSEIFO(9)=1THENF 


$="SELF DESTRUCTION ACTIVATED":G 
OSUB999:GOTO10000 

605 IFLO1THEN610ELSEIFO (10) <>1T 
HENF$="SOMETHING IS MISSING":GOT 
03 

610 IF(L=35 OR L=36) THENIF DE=0 
THENF$="CABIN DEPRESSURIZED":DE= 
1:ELSEIFDE=1THENF$="CABIN PRESSU 
RIZED":DE=0 

611 GOSUB999:FORN=1TO500:NEXT:IF 
0(4)=2000ANDO(5)=2 000THENGOTO150 
:ELSEIFDE=1THENF$="Y0U HAVE BEEN 

SUFFOCATED":GOSUB99 9:GOTO10000: 
ELSE150 

650 GOSUB1200:F0RX=1T011:IF 0$(X 
)=I$ THEN655ELSENEXT 

651 F$="I DONT UNDERSTAND "+I$:G 
0T03 

655 IFO(X)<>L AND O(X)<>1000 THE 
N659ELSE ON X GOSUB695,690,690, 
690,690,660,663,666,669,672,675 
657 G0T03 

659 F$="I SEE NO "+I$:G0T03 

660 F$="IT IS AN INSTRUCTION DIS 
K":RETURN 

663 F$="IT SAYS: CODE:V":RETURN 
666 F$="IT SAYS: CODE:J":RETURN 
669 F$="IT CONTAINS ELETRONIC PA 
RTS":RETURN 

672 F$="IT IS AN ELETRONIC BOARD 
":RETURN 

675 F$="IT LOOKS A KIND OF WEAPO 
N":RETURN 

690 F$="NOTHING SPECIAL":RETURN 
695 F$="IT LOOKS AN ACCESS CARD" 
:RETURN 

700 PCLS:F$="MISSION FINAL REPOR 
T:":DRAW"BM3,20":GOSUB950:LINE(0 
,23)-(255,23),PSET 
710 IFFA=1THENDRAW"BM3,40;":F$=" 
YOU REACTIVATED ICONIA":GOSUB950 
:P=P+1 

720 IFFB=1THENDRAW"BM3,60;":F$=" 
YOU REACTIVATED XAL":G0SUB950:P= 
P+1 

730 IFFC=1THENDRAW"BM3,80;":F$=" 
YOU PROGRAMMED THE RETURN":GOSUB 
950:P=P+1 

735 IFL=410RL=42THENF$="Y0U GOT 
OUT THE SHIP":DRAW"BM3,100;":GOS 
UB950:P=P+1 
740 DRAW"BM3,150;" 

742 IFP<>4THENF$="Y0U HAVE FAILE 
D SOMEWHERE":GOSUB950:GOTO1600 

743 F$="YOU ARE AN EXCELLENT AST 
RONAUT":GOSUB950:GOTO1600 
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750 GOSUB895:F$="WITH YOU:":GOSU 
B950:B=0:F0RX=1T011:IF 0(X)=1000 
ORO(X)=2000THENDRAW"BM7 0,"+STR$( 
170+B*10)+";":F$=OB$(X):GOSUB950 
:B=B+1:NEXT:GOTO150:ELSENEXT 

755 IFG=0THENDRAW"BM70,170;":F$= 
"NOTHING":GOSUB950:GOTO150 

756 GOTO150 

757 B=0:FORT=1TO300:NEXT:GOSUB89 
5:RETURN 

800 JY=JOYSTK(0) 

810 PRESET(A*31+15,160) 

820 IFJY>50THENA=A+l:IFA>7THENA= 

0 

830 IFJY<14THENA=A-1:IFA<0THENA= 
7 



840 PSET(A*31+15,160):FORI=1TO20 
0:NEXT:RETURN 

845 GOSUB890:F$="DANGER:"+M$(H): 
MO=l:GOSUB950 
860 RETURN 

870 Y=RND(5):IFY<3THENMO=0:RETUR 
N 

871 IFH=1THENF$="THE VANTA ATTAC 
KS AND KILLS YOU":GOSUB999:GOTOl 
0000 

872 IFH=3ANDG>0THENFORX=1TO11:IF 
0(X)=1000ORO(X)=2000THENO(X)=RND 
(40):NEXT:F$="VOLKA SCATTERED AL 
L YOUR THINGS":G=0:GOSUB999:ELSE 
NEXT 

873 IFH=2ANDG>0THENFORX=1TO11:IF 
0(X)=1000THENF$="THE VIROX HID T 
HE "+0$(X):O(X)=RND(40):MO=0:G=G 


-1:G0T03:ELSENEXT 
874 MO=0:RETURN 

890 PMODE4:COLOR0:LINE(0,115)-(1 
15,12 5),PSET,BF:DRAW"BM3,12 3 ; ":P 
MODE3:RETURN 

895 COLOR1:LINE(0,160)-(255,191) 

, PSET,BF:DRAW"BM3,170 ; " :RETURN 
950 PMODE4:COLOR4:FORZ=lTO LEN(F 
$):F1$=MID$(F$, Z, 1):F1=ASC(Fl$) 
982 IFF1>64AND FK91THEN Fl=Fl-6 
4:DRAW "C1"+K$(F1):GOTO990 

985 IFF1=58THEN DRAW"BUUBU2UBD5B 
R3":GOTO990 

986 DRAW"BR7 

990 NEXT:PMODE3:RETURN 

992 FORI=lTO 11 

993 IFO(I)=-lTHEN O(I)=RND(40) 

994 NEXT:RETURN 

995 GOSUB890 

996 IFL<9THENRETURNELSEF$="DOOR 
CLOSED":GOSUB950:PLAY"T702CACA": 
GOTO150 

999 COLOR1:LINE(0,160)-(255,191) 

, PSET,BF:DRAW"BM3,170;":GOSUB950 
:RETURN 

1000 PCLS:IFL<9THENGOSUB1122:S=2 
1002 ON L GOSUB1006,1008,1010,10 
12,1014,1016,1018,1020,1022,1024 
,1026,1028,1030,1032,1034,1036,1 
038,1040,1042,1044,1046,1048,105 
0,1052,1054,1056,1058,1060,1062, 
1064,1066,1068,1070,1072,1074,10 
76,1078,1080,1082,1084,1085,1085 
1004 RETURN 

1006 PO=90:GOSUB1128:GOSUB1124:G 
OSUB113 6:X=68:GOSUB1134:X=130:Y= 
40:GOSUB1130:DRAW"BE3BH10C0U20L4 
0D20C1":LINE(135,25)-(165,35),PS 
ET,BF:RETURN 

1008 PO=160:GOSUB1128:GOSUB1124: 
X=63:Y=60:GOSUB1132:X=110:GOSUB1 
132:X=220:GOSUB1140:RETURN 
1010 PO=117:GOSUB1128:GOSUB1124: 
GOSUB1138:LINE(90,30)-(80,40),PS 
ET,BF:X=180:GOSUB113 4:RETURN 
1012 PO=160:GOSUB1128:GOSUB1124: 
X=75:Y=40:GOSUB1130:X=135:GOSUB1 
134:DRAW"BM75,40;C3;BF5U15R10D5R 
10U5R10D15":RETURN 
1014 PO=117:GOSUB1128:GOSUB1124: 
GOSUB1138:X=220:GOSUB1140:X=150: 
Y=3 0:GOSUB1142:DRAW"D15BR5RULDBR 
5C3R7NU5NR7D5":RETURN 
1016 PO=160:CIRCLE(30,37),18,0,2 
: DRAW"BM30,37 ; C0RULDBE15RULDBL20 
RULD":GOSUB1124:X=70:Y=60:GOSUB1 
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132:X=120:GOSUB1134:RETURN 
1018 PO=70:S=2:GOSUB1128:G0SUB11 
24:X=20:GOSUB1140:DRAW"BM110,40; 
C3R40F10ND15L60ND15E10;BM170,55; 
H5ND10R10ND10F5ND10L10ND10":PAIN 
T(115/45),3,3:PAINT(172,53),3,3: 
RETURN 

1020 PO=170:S=2:GOSUB112 4:X=60:G 
OSUB1134:X=10:GOSUB1140:X=23 0:GO 
SUB1140:X=78:Y=30:GOSUB1142:X=12 
3:GOSUB1142:RETURN 
1022 S=3:GOSUB1120:GOSUB1126:GOS 
UB1158:GOSUB1160:X=7 5:T=1:GOSUB1 
134:X=165:T=1:GOSUB1134:LINE(98, 
10)-(158,30),PSET,BF:DRAW"BM98,2 
0;C0F5E10R5F10E5F5E10F10":RETURN 
1024 S=2:GOSUB1150:X=70:T=1:GOSU 
B1134:X=100:Y=2 5:GOSUB1142:RETUR 
N 

1026 GOSUB1120:S=2:GOSUB1126:GOS 
UB1160:X=40:Y=50:GOSUB1164:Y=30: 
GOSUB1164:RETURN 

1028 GOSUB1120:S=2:GOSUB112 6:GOS 
UB1104:X=60:GOSUB1134:X=140:Y=40 
:GOSUB1162:X=215:Y=50:GOSUB1166: 
RETURN 

1030 S=2:GOSUB1150:GOSUB1158:X=1 
00:GOSUB113 4:X=215:Y=50:GOSUB116 
6:RETURN 

1032 S=2:GOSUB1120:GOSUB1126:X=4 
0:Y=50:GOSUB1164:Y=30:GOSUB1164: 
X=215:Y=50:GOSUB1166:Y=30:GOSUB1 
166:RETURN 

1034 S=2:GOSUB1120:GOSUB1096:GOS 
UB1152:X=40:Y=50:GOSUB1164:X=90: 
Y=40:GOSUB1162:X=110:GOSUB1162:R 
ETURN 

1036 S=2:GOSUB1120:GOSUB1126:X=5 
0:Y=40:GOSUB1162:X=70:GOSUB1162: 
X=20:GOSUB1140:X=225:GOSUB1140:R 
ETURN 

1038 S=2:GOSUB1120:GOSUB1126:X=5 

0:T=1:GOSUB113 4:X=100:Y=40:GOSUB 

1162:X=215:Y=50:GOSUB116 6:RETURN 

1040 S=3:GOSUB1112:GOSUB1092:GOS 

UB1096:GOSUB1152:RETURN 

1042 S=3:GOSUB1112:GOSUB1088:GOS 

UB1092:GOSUB1152:RETURN 

1044 S=3:GOSUB1116:GOSUB1088:GOS 

UB1100:GOSUB1152:PAINT(180,2),S, 

0:GOSUB1108:RETURN 

1046 S=3:GOSUB1120:GOSUB1096:GOS 

UB1152:GOSUB110 4:RETURN 

1048 S=3:GOSUB1116:GOSUB1088:GOS 

UB1096:GOSUB1152:GOSUB1108:RETUR 

N 


1050 S=3:GOSUB1120:GOSUB112 6:GOS 
UB1104:RETURN 

1052 S=3:GOSUB1112:GOSUB1092:GOS 
UB1096:GOSUB1152:RETURN 
1054 S=3:GOSUB1112:GOSUB1088:GOS 
UB1152:RETURN 

1056 S=2:GOSUB1150:GOSUB1104:X=8 
0:X=153:Y=3 5:GOSUB113 0:X=17:GOSU 
B1140:RETURN 

1058 S=2:GOSUB1116:GOSUB1152:X=1 
7:GOSUB1140:X=2 2 5:GOSUB1140:X=45 
:T=1:GOSUB113 4:X=19 3:T=1:GOSUB11 
3 4:DRAW"C0BU5BL7H2 3ND2 2L8 3ND22G2 
3R125":RETURN 

1060 S=2:GOSUB1120:GOSUB1104:GOS 
UB1096:GOSUB1152:X=155:X=60:Y=35 
:GOSUB1130:X=22 5:GOSUB1140:RETUR 
N 

1062 S=2:GOSUB1116:GOSUB1088:GOS 
UB1092:GOSUB1108:GOSUB1152:PAINT 
(75,5),2,0:RETURN 
1064 S=3:GOSUB1116:GOSUB1100:GOS 
UB1108:GOSUB1152:PAINT(180,3),3, 
0:RETURN 

1066 S=3:GOSUB1120:GOSUB1094:GOS 
UB1152:GOSUB1104:RETURN 
1068 S=0:GOSUB1120:S=3:GOSUB1158 
:X=160:S=2:GOSUB113 4:X=180:GOSUB 
1134:RETURN 

1070 S=2:GOSUB1116:GOSUB112 6:X=3 
0:Y=20:GOSUB1156:X=225:GOSUB1156 
:CIRCLE(127,40),40,0,.3:DRAW"BM1 
25,0;C3ND50RND50RD50":RETURN 
1072 S=3:GOSUB1112:GOSUB1100:GOS 
UB1152:GOSUB1136:RETURN 
1074 S=2:GOSUB1120:CIRCLE(127,25 
),24,0:DRAW"BM12 7,25;NH15NE15NF1 
5G15":GOSUB1126:X=60:GOSUB1168:T 
=1:GOSUB1160:RETURN 
1076 S=2:GOSUB1120:CIRCLE(127,25 
),24,0:DRAW"BM127,25;NH15NE15NF1 
5G15":GOSUB1126:X=195:GOSUB1168: 
T=1:GOSUB1158:RETURN 
1078 S=2:GOSUB1120:GOSUB1126:X=4 
0:Y=50:GOSUB1164:Y=40:F0RX=75T01 
85STEP20:GOSUB1162:NEXT:RETURN 
1080 S=2:GOSUB1120:GOSUB112 6:GOS 
UB1158:CIRCLE(140,25),24,0:RETUR 
N 

1082 S=0:GOSUB1120:S=3:X=50:GOSU 
B1134:X=80:S=2:GOSUB1134:X=110:T 
=1:GOSUB1134:RETURN 

1084 S=2:GOSUB1120:GOSUB1088:GOS 
UB1104:GOSUB1126:RETURN 

1085 FORI=1TO100:X=RND(255):Y=RN 
D(90):PSET(X,Y):NEXT:RETURN 
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1)386 1 PORTA 1 

1)388 DRAW" BM)3,1)3)3? Cl ? El)3 ? C)3 ?NL1)3 
U9)3": RETURN 
1)39)3 'PORTA 2 

1)392 DRAW"BM)3,1)3)3 ? BE5)3NU6)3NG5E2 ? 
C1 ? El)3 ? C)3 ? NL1 )3U4 )3 " : RETURN 
1)394 'PORTA 3 

1)396 DRAW"BM255,1)3)3?Cl ?H1)3?C)3?NR 
1)3U9)3»: RETURN 

I) 398 'PORTA 4 

II) 3)3 DRAW"BM255,1)3)3 ?BH5)3NU6)3NF5H 
2 ? Cl ? Hl)3 ? C)3 ? NR1)3U4)3 " : RETURN 
11)32 'PORTA QUARTO 

11)34 LINE(117,1)3)-(137,5)3) ,PSET, 
BF: DRAW"BM117,25 ? Cl ? R2)3BD5L2)3" : R 
ETURN 

11)36 'PORTA CORREDOR 
11)38 LINE(12)3,)3)-(13)3,2)3) ,PSET,B 
F: DRAW"BM 12)3,3 ? C1 ? R1)3BD3 Ll)3 " : RET 
URN 



* 

+ 


€> x b 

HERE:A 6REEN BROCHURE 
A BREEN BOX 


111) 3 'CORREDOR LONGO 

1112 DRAW"BM)3,1)3)3 ? C)3E1)3)3 ? BM2 55,1 

)3)3?H1)3)3": RETURN 

1114 'CORREDOR CURTO 

1116 DRAW"BM)3,1)3)3 ? C)3E8)3NU2)3R94NU 

2)3F8)3»: RETURN 

1118 'ROOM 

112) 3 DRAW"BM)3,1)3)3 ?C)3E5)3NU5)3R155N 
U5)3F5)3": RETURN 

1122 DRAW"BM6)3, )3 ? D55R135U55" : CIR 
CLE ()3,55) , 6)3, )3 , . 48, )3, . 25: CIRCLE ( 
255,55),60,0,.48,.25,.5:RETURN 
1124 LINE(PO,10)-(PO+20,55),PSET 
,BF:DRAW"BM"+STR$(PO)+",25 ? Cl? R2 
0BD5L20" 

1126 PAINT(15,1),S,0:PAINT(100,1 
),S,0:PAINT(250,1),S,0:RETURN'pa 
int wheel 

1128 CIRCLE(40,33),6,0:CIRCLE(10 
,40),6,0:RETURN'janelinhas 
1130 DRAW"BM"+STR$(X)+","+STR$(Y 


)+"?C3?G10D15R60U15H10L40":PAINT 
(X+5,Y+15),0,3:DRAW'C1? BG10R60BG 
3L52D10R52U10":RETURN'mesa 
1132 DRAW"BM"+STR$(X)+","+STR$(Y 
)+"?C3 ?NR40U10E8U5E2R20F2D5F8D10 
":PAINT(X+10,Y-5),0,3:DRAW"L5U10 
NR5H8NR5D5L15U5NL5G8NL5D5NR27D5" 
:RETURN'sofa 

1134 GOSUB1144:DRAW"BM"+STR$(X)+ 
",0 ? C"+STR$(R)+"? D55FFR3EERFFR3E 
EU5 5":PAINT(X+ 5,50),P,R:DRAW" C "+ 
STR$ (Q)+"? BL9D55":RETURN'tubos 
1136 DRAW"BM220,0 ? C0D90BR20U18NL 
20U18NL20U18NL20U18NL20U18":RETU 
RN'escada 

1138 DRAW"BM60,52 ? C3U7G10D14R50E 
10U7L50":PAINT(61,53),0,3:DRAW"C 
3G10R10NE10R5NE10R35NE10D7":RETU 
RN'cama 

1140 DRAW"BM"+STR$(X)+",0 ? C3 ? D8 5 
F3R7E3U85":PAINT(X+5,1),3,3:DRAW 
"C0L10D70":RETURN'tubo 
1142 DRAW"BM"+STR$(X)+","+STR$ (Y 
)+"?C3D40R40U40H10L20G10":PAINT( 
X+5,Y+25) ,0,3:DRAW"C1NR40BR5BD5R 
30D30L30U30":RETURN'armario 
1144 IFS=2THENR=3ELSER=2 
1146 IFT<>0THENP=0:Q=1:T=0:ELSEP 
=R: Q=0 
1148 RETURN 

1150 GOSUB1120:GOSUB1088:GOSUB11 
2 6:RETURN 

1152 FORI=20TO230STEP70:PAINT(I, 
2),S,0:NEXT:RETURN 
1156 CIRCLE(X,Y),15,3:CIRCLE(X,Y 
+30),15,3:CIRCLE(X,Y+60),15,3:FO 
R Z=Y TO Y+60 STEP30:PAINT(X,Z), 
3,3:NEXT:RETURN 

1158 GOSUB1144:DRAW"BM20,0 ? C'+ST 
R$(R)+"D7 8R20E27U52":PAINT(22,2) 

,P,R:DRAW"C"+STR$(Q)+"BL27D78":R 
ETURN 

1160 GOSUB1144:DRAW"BM23 5,0 ? C" + S 
TR$ (R)+"D78L20H27U52":PAINT(23 3, 
2),P,R:DRAW"C"+STR$(Q)+"BR27D78" 
:RETURN 

1162 DRAW"BM"+STR$(X)+","+STR$ (Y 
)+"C3D10F3R7E3U10H3L7G3":PAINT(X 
+3,Y+2),3,3:DRAW"C0F2R7E2":RETUR 
N 

1164 DRAW"BM"+STR$(X)+","+STR$(Y 
)+"C3D10R20E10U10L20G10":PAINT(X 
+3,Y+2),0,3:DRAW"C1R19NE10D10":R 
ETURN 

1166 DRAW"BM"+STR$(X)+","+STR$(Y 
)+"C3D10L20H10U10R20F10":PAINT(X 
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-3 ,Y+2) ,0,3 :DRAW"C1L19NH10D10" sR 
ETURN 

1168 CIRCLE(X,40),24,3:PAINT(X+5 
,45),0,3:CIRCLE(X,35),20,1,.5: PA 
INT(X+5,35),1,IsDRAW"BM"+STR$(X) 
+ ",40 ? C0BL24L10U10NH3NE3D10R10BR 
48R10U10NH3E3"sRETURN 
1170 G0T01170 

1180 PM0DE4:DRAW"BM0,132? BD15BR4 
NR7U15R15G7D15E7U15 ? BM31,132? BD5 
BR9R5G5R5G5" 

1182 M$="BR3D14F2E2NU8F2E2NU8F2E 
2NU8F2E2U10F5R2U2H5"sDRAW"BM62,1 
32 ?XM$ ? BD10D7L20U7R2? BM93,132 ?XM 
$ ? BD19ND3L20D3" 

1184 DRAW"BM124,13 2? BR14D15F2R2E 
2U15BD21ND3L6D3?BM155,132 ?BR5BD1 
2E5RUR5DRF5G5LDL5ULH5BR6F2E2H2G2 

ii 

1186 DRAW"BM18 6,13 2 ? BR15BD12NE10 
NH10NG10F10 ?BM217,13 2? BR10BD5R10 
D15L10U15D3BR2R8BD2L8BD2R8":RETU 
RN 

1200 C0L0R1:LINE(150,110)-(255,1 
30),PSET,BF:1$="":PMODE4:DRAW"BM 
150,122?" 

1202 V$=INKEY$:IFV$=""THEN1202 

1204 V=ASC(V$):IFV=8THENV=92 

1205 IFV=13THENPMODE3:RETURN:ELS 
EIFV<64ORV>92THEN1202ELSEV=V-64 

1206 IF V=28 AND LEN(1$)>0THENI$ 
=LEFT$(I$,LEN(I$)-1):DRAW"C0L8UR 
7UL7UR7UL7UR7UL7D6C1":GOTO1202:E 


LSEIFV=28THEN12 02 

1208 DRAW"Cl?XK$(V) ?":I$=I$+V$:G 
OTO1202 

1299 DRAW"BM"+STR$(30+15*B)+",80 

• it 

1400 FORI=1TO500:NEXT 

1405 F$="CODE:PLEASE ENTER FOUR 

LETTERS":GOSUB999 

1407 GOSUB1200:IFI$="VJON"THENPL 
AY"T2CABCAB":F$="THE SHIP IS NOW 

GOING TO EARTH":FC=1:G0T03 

1408 X=RND(3):IFX>2THENF$="SELF 
DESTRUCTION ACTIVATED":GOSUB999: 
GOTO10000 

1410 F$="XAL STARTS TO SING":GOS 
UB999:FORI=1TO500:NEXT:GOTO1405 
1500 DRAW"BM35,60 ? C2S8D20BR5NR15 
U20R15BR5D20R15U20NL15BR5ND20F20 
U20BR5ND20BR5ND20R15D10NL15D10S4 
":RETURN 

1520 DRAW H BM8,130":F$="BY CARLOS 
EDUARDO PENNA M ROCHA":GOSUB950 
1530 FORI=1TO2000:NEXT:RETURN 
1600 DRAW"BM3,180 ?":F$ = "PRESS :E 
NTER: TO PLAY AGAIN":GOSUB950:DR 
AW"BM3,190 ?":F$ = "OR ANY OTHER KE 
Y TO QUIT":GOSUB950 

1610 A$=INKEY$:IFA$=""THEN1610 

1611 IFASC(A$)=13THENRUNELSEPOKE 
65494,0:END 

10000 FORI=1TO10:SOUNDI,1:NEXT:F 
ORI=10TO1STEP-1:SOUNDI,1:NEXT:GO 
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The 

Escape 

oF 

Embroilment 

Program by Jon Blow 


f you’ve been successful suppressing the aggres¬ 
sive hostilities of the abundant variety of pesty 
critters in the previous Adventures, you prob¬ 
ably feel you’re ready to face the ultimate 
challenge. If so, let’s hope your intuition serves 
you well because you may have finally met your 
match. 

Enter the funhouse called Embroilment 
where your survival skills will be put to an 
exorbitant test of endurance. Since the unusual 
old building was abandoned years ago, its 
initial appearance may not be aesthetically 
overwhelming. But the funhouse’s exterior is 
not the characteristic that is intended to 
captivate your interest. On the other hand, a 
startling sensation is stimulated as you walk 
through the front door and into its first room. 

Your primary objective, besides surviving, of 
course, is to find your way f rom one end to the 
other and escape by finding the one and only 
exit. However, doing so will require extensive 
exploration since, like most f unhouses, the place 
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has a wide assortment of distinguishably unique locations. 

You’re certain to approach insanity as you fumble through the rooms of 
mirrors, and revolving rooms will have your head spinning to find a way out. 
Outrageous danger lurks inside some quarters while others will relieve a little 
of the tension by providing some fun and games. But the amusement is only 
temporary, as it’s back to traveling the narrow passages and spooky staircases, 
uncertain of what awaits you around the corner. But don’t hesitate. Your journey 
must encompass each and every room if you are ever to depart the funhouse. 

Of course, the excitement really starts to mount as Embroilment’s ghosts 
begin to appear. There are many lurking in the old funhouse, each bearing a 
personality and characteristics all its own. You will encounter ghosts that will 
steal and hide your most valuable possessions. On the other hand, some appear 
to be rather generous and will leave you presents. But beware of such gifts since 
deceit is a common characteristic among them all. To overcome the threat of 
the exhausting spirits, you will have to learn their true colors and only 
experience can assist you. 

Perhaps the most annoying trait of all the ghouls is their ability to slime you. 
This is not at all a pleasant experience and the constant threat of it will soon 
have you afraid to turn the next corner. Obviously, the termination of every 
one of these horrid fiends is essential, if you are ever to depart the funhouse. 

So, not to leave you defenseless in your mission, you have been equipped 
with an official Super Ammo Ghostblaster, the deluxe five-setting model, which 
includes a setting for every type of ghost in existence. A power disk, power 
orb and power pack — all beneficial ammunition — are also at your disposal. 

If you are lucky enough to survive the treacherous funhouse and escape alive, 
your success will be determined by the score you are able to accumulate. Points 
will be received for eliminating the ghosts that dwell within. Needless to say, 
without this accomplishment you are destined to remain within the confines 
of Embroilment indefinitely. 

Additional points can be racked up in the Comterm Six gameroom. If able 
to locate it, you’ll find three video games: Ralfo Chess, Shark Attack and Global 
Thermonuclear War that will all be prepared to match your wits. 

To play Thermonuclear War, use the four arrow keys to blow holes in the 
force field and destroy the enemy outposts ($). You have five missiles, which 
start at the bottom of the screen and accelerate on the way up. 

In Shark Attack, you are the tenderheart (t) in a pool of sharks (s). Use the 
four arrow keys to ram the sharks into the buoys (*). Beware — the pace gets 
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faster as the game progresses. 

Sorry, but you’ll have to figure out how to defeat Ralfo Chess on your own. 

Now don’t say you weren’t warned about Embroilment, but I hope you 
haven’t been chased away either. Go ahead, take the challenge. You’ll find that 
the excitement will eventually outweigh the risks. 

The Escape of Embroilment consists of 34 different locations and includes 
a vocabulary of approximately 64 words. A word parser is used for added speed 
and versatility during game play. 

Travel is executed using the single-key directional commands of N (North), 
5 (South), E (East), W (West), U (Up) and D (Down). The standard two-word 
commands (a verb followed by a noun) are accepted and may be abbreviated 
by typing only the first four letters of the verb and noun (e.g., SHOO GH05 may 
be used instead of SHOOT GHOST), which allows clever commands to be invented, 
such as DROPE (DROP ROPE). An available list of verbs may be displayed at any 
time by typing VERB. 

Multiple commands may also be input. Commas or colons must be used to 
separate commands (e.g., DR0PR0PE,5:L00I<). Spaces may be used, but are not 
required. 

To play The Escape of Embroilment , load and run ESC BOOT. After the 
accompanying music is played, ESC MRIN will automatically be loaded from 
cassette. At the OK prompt, type RUN and the Adventure will begin. 

Due to memory limitations, the program will not run with the disk controller 
plugged in during game play. 

Note: In some instances the room descriptions may scroll off the screen too 
fast to read. If this occurs, type L, for LOOK at room description, and 
immediately press the SHIFT and @ keys simultaneously. By doing so, the text 
will pause until ENTER is pressed , which will then display the remainder of the 
text. 


Jon Blow has been using computers for six years and has written several 
other Adventure games. Questions or comments may be addressed to him 
at 14925 Satanas Street, San Diego, CA 92129. Please enclose an SASE 
when requesting a reply. 
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ESC BOOT 32KECB 


0 ''' THE ESCAPE OF EMBROILMENT 

1 ' 1 ' BY JOHNOTHAN BLOW 

2 1,1 COMPLETED MAY 20, 1985 

3 1,1 FOR RAINBOW ADVENTURES 

4 1,1 ADDRESS: 

5 ''' 14925 SATANAS STREET 

6 111 SAN DIEGO, CALIFORNIA 

7 'M 92129 (619) 672-0152 

10 CLEAR 200,32544 

20 SS=320 

30 CLS:ST=32544 

40 FORX=ST TO ST+191 

50 READ D 

60 POKE X,D 

70 NEXT 

80 DATA 52,54,141,26,48,141,0,40 
,188,1 

90 DATA 104,39,14,16,190,1,104,1 
91,1,104 

100 DATA 48,141,0,61,16,175,132, 
53,54,57 

110 DATA 16,142,2,0,142,4,0,159, 
136,134 

120 DATA 32,167,128,49,63,38,250 
,57,52,52 

130 DATA 246,1,84,193,191,39,38, 
158,136,129 

140 DATA 8,39,41,129,13,39,87,12 
9,64,37 

150 DATA 16,129,96,37,42,140,6,0 
38 2 

160'DATA 141,47,53,52,126,17,17, 
167,128,159 

170 DATA 136,134,10,32,236,174,1 
41,255,242,191 

180 DATA 1,104,32,227,16,142,32, 
32,16,175 

190 DATA 130,159,136,134,10,32,2 
21,128,64,16 

200 DATA 142,1,1,49,63,38,252,32 
,214,142 

210 DATA 4,0,230,136,32,231,128, 
140,5,224 

220 DATA 38,246,159,136,198,32,2 

31.128.140.6 

230 DATA 0,38,249,57,150,137,129 
,32,37,4 

240 DATA 128,32,32,248,198,32,23 

1.128.140.6 

250 DATA 0,38,4,141,210,32,7,76, 
129,32 

260 DATA 38,238,159,136,53,52,19 

8,1,134,10 

270 DATA 32,148 


280 M=FIX(SS/256):M1=SS-M*256:M= 
M+4:POKE32544+130,M:POKE32544+13 
1, Ml 

290 GOTO 340 

300 PLAY"T4L8BCL4DDDL8GGL4AGF#EL 
ID? ? ? ? ? ?L2DP4L8BCL4DDDGCBAGL1A?? 
?L2 .AP4P4L4BBEL2.GL8FGL2AEL1F?? ? 
P2L4EGL4.CL8BL4.AL8GL1GL2.GP4 
310 PLAY"P4L4DDL8DDL4DL8ECL2CP4L 
8DDL4DL8DG?? ?L1GP4L8GGL4GL8FGL4A 
L8GEL2E ?? ? P4L8EEL4FL8GAL1A?? ?P4L 
4DDL8DDL4DL8ECL2CP4L4DDL8DGL1G 
320 PLAY"P4L8GGL4GL8FGL4AL8GL8EE 
L8GL4G?? ?P4L8EEL4FL8GL1A 
330 RETURN 

340 CLS:A$=STRING$(32,159):FORX= 
1T015:PRINTA$?:FORY=1TO50:NEXT:N 
EXT 

350 PRINT00, 1,11 ?: FOR X=1 TO 15: FO 
RY=1TO30:NEXT 
360 B$="" 

370 IF X=3 THEN B$=" THE ESCAP 
E OF EMBROILMENT!" 

380 IF X=5 THEN B$="BY: JOHNO 

THAN DAVID BLOW" 

390 IF X=7 THEN B$=STRING$(11,32 
)+"WATCH OUT!!" 

400 IF X=13 THEN B$="WITH THANKS 
TO RAY GAUVREAU FOR" 

410 IF X=14 THEN B$=STRING$(11,3 
2) +"!REVFIELD!" 

420 PRINTB$:NEXT:GOSUB300 

430 CLS:PRINT"LOAD 'ESC MAIN' AN 

D RUN IT.": POKE 25,6: NEW , 
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ESC MAIN 32KECB 


0 CLEAR400 : EXEC3254 4 : PRINT"WOULD 
YOU LIKE ME TOPRINT:PRINT:PR 
INT" [A] WAIT FOR YOU TO PRESS 
A KEY TO ERASE MESSAGES" 

, " [B] FLASH MESSAGES FOR"," 

A TIMED INTERVAL" 

1 A$=INKEY$:IFA$<"A"ORA$>"B"THEN 
1ELSEIFA$="B"THENMF=1 

2 NG=11: L=1: NS=0: GS=1: NO=25 : PG=- 
1:NC=3 2:NL=3 4:DIMLO$(NO),0$(N0), 
O(NO),G$(NG),G(NG), C$ (NC),C(NC), 
L$(NL),0(6,NL),GS(NG):F0RX=1T05 

3 GS (X) =RND (5) : FORY=0TOX-1: IFGS ( 
X)=GS(Y) THEN 3 ELSE NEXT 

4 NEXT:F0RX=1T05:GS(X+5)=GS(X):N 
EXT:F0RX=1T0NL:READL$(X),D(1,X), 
0(2,X),D(3,X),D(4,X),D(5,X),D(6, 
X):NEXT:F0RX=1T0NC:READC$(X),C(X 
):NEXT:F0RX=1T0N0:READLO$(X),0$( 
X),O(X):IF 0(X)=-1 THEN 0(X)=RND 

(IP) 

5 NEXT:F0RX=1T0NG:READ G$(X),G(X 
):IFG(X)=-lTHENG(X)=RND(NL) 

6 NEXT:F0RX=1T08:READRM$(X):NEXT 
:D$(1)="NORTH":D$(2)="SOUTH":D$( 

3) ="EAST" : D$ (4 ) ="WEST" : SS=320 : GO 
SUB316:EXEC32544 

7 IFL=3 4THEN34 6ELSEPRINT00 : FORX= 
1TO10: PRINT:NEXT: IF BD=1 THEN PR 
INT"I CAN'T SEE I":G0T019 ELSE PR 
INT"I AM "L$(L):G0SUB314:ZZ=RND( 

4) :PRINT"I CAN SEE:" 

8 XX=0 : F0RX=1T0N0: IFO (X) =L ANDLO 
$(X)<>» *"THENPRINTLO$(X)".":XX=X 
X+l 

9 NEXT:G0SUB314:F0RX=1T0NG:IFG(X 
)=L THENPRINT"A "G$(X)".":XX=XX+ 
1 

10 NEXT: IFXX=0THENPRINT"NOTHING 
ELSE OF INTEREST." 

11 IF RND (100 ) =1 THEN PRINT"I FE 
EL LIKE SOMEBODY IS CON- TROL 
LING MY EVERY MOVE!" ELSE IF RND 
(200)=1 THEN PRINT"IS THAT TYPIN 
G I HEAR?"ELSE IF RND(250)=1 THE 
N PRINT"MY FEET ARE GETTING SORE 

I H 

12 IF RND (300)=1 THEN PRINT"THIS 
IS GETTING ROUGH. I THINK I'LL 
TAKE A BREAK. HEY— YOU DON' 

T HAPPEN TO HAVE 'ALICE IN WOND 
ERLAND', DO YOU?" 

13 GOSUB314: IF L=20 AND GM(1)=0T 
HEN PRINT"! HEAR A GRINDING NOIS 


E, AND THELADDER HAS NOW DISAPPE 
ARED!" 

14 IF L=20 AND GM(2)=0 THEN PRIN 
T"THE PASSAGE TO THE SOUTH IS"," 
BLOCKED!" 

15 IF ABS(L-8)<3 THEN PRINT"I HE 
AR A STRANGE GRINDING NOISE."? 

16 D(3,8)=D(3,8)+1:IFD(3,8)>12 T 
HEN D (3,8) =7 

17 F0RX=1T04:IFD(X,L)=8 ANDD(3,8 
)<>L THENPRINT"THE PASSAGE TO TH 
E "D$ (X) ? , "IS BLOCKED!":SOUND150 
/I 

18 NEXT:G0SUB81 

19 OJ=0 : CN=0 : PRINT0480 , " " ? : LINEI 
NPUTA$:IFA$=""THEN19 

20 IF A$="N"THENA$="NORT"ELSEIFA 
$="S"THENA$="SOUT"ELSEIFA$="E"TH 
ENA$="EAST"ELSEIFA$="W"THENA$="W 
EST"ELSEIFA$="U"THENA$="UP"ELSEI 
FA$="D"THENA$="DOWN" 

21 IF A$="ST"THEN A$="STAY"ELSEI 
FA$="WT"THENA$="WAIT"ELSEIFA$="L 
"THENA$="LOOK"ELSEIFA$="I"THENA$ 
="INVE" 

22 G0SUB7 3: ON NN GOSUB 63,140,20 
3,301,306,127,286,94,104,116,122 
,198,131,142,144,204,298,334,335 
,336,338:MV=MV+1 

23 IF C$<>"" THEN GOSUB88 

24 IF T1>0 THEN T1=T1-1:IFT1=0TH 
ENL=10:GOSUB169:CN=0 

25 IF CN<7 THEN 7 

26 GOTO 16 

27 DATA "IN A SMALL, DAMP ROOM. 
THERE IS AN EXIT TO THE EAST. 

",0,0,2,0,0,0,"IN A DUSTY, DAMP, 
ROUND ROOM. THERE ARE EXITS 
TO THE WEST AND SOUTH.",0,3,0 

28 DATA"IN A NEAT, TIDY ROOM. 
THERE ARE EXITS TO THE NORTH 
AND SOUTH.",2,4,0,0,0,0,"IN A 

DUSTY, COBWEBBED HALL.THERE ARE 
EXITS TO THE NORTH ANDSOUTH. T 
HE SOUTH EXIT SEEMS TO BE BLOCKE 
D BY SOME SORT OF ELECTRICA 

L FIELD.",3,4,0,0,0,0 

29 DATAIN ANOTHER NEAT AND TIDY 
ROOM. THERE ARE NEAT AND TIDY E 
XITS TO THE NORTH AND EAST.,4,0, 
6,0,0,0 

30 DATA"IN A MISTY, CREEPY ROOM. 
PAINTINGS AND MURALS ARE SET 

IM-TO THE WALL. THERE IS AN EXI 
T TO THE WEST, AND A STAIRWAY E 
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ASTGOING UP.",0,0,7,5,7,0 

31 DATA"IN A ROOM ATOP A SMALL 
STAIRCASE. THERE IS A PASSAG 

E TO THE EAST, AND A STAIRCASE 
LEADING DOWN TO THE WEST.",0, 
0 , 8 , 6 , 0,6 

32 DATA"IN A LARGE, ROUND ROOM. 
THERE IS ONLY ONE OPENING — 
TO THE EAST.",0,0,0,0,0,0 

33 DATA"IN A ROOM NOT LARGER THA 
N 5 FT. BY 5 FT.. THERE IS A 

DOORWAY TO THE EAST, AND AN U 
P- WARD STAIRCASE CARVED INTO TH 
E WEST WALL.",0,0,8,14,14,0 

34 DATA IN A SMALL ROOM. THERE 
IS A CURIOUS SORT OF SLOT MACHIN 
E EMBEDDED INTO THE NORTH WALL. 

IT HAS A CURIOUS LEVER WHICH 
SAYS »PULL ME. 1 THE ONLY EXI 
T IS TO THE SOUTH.,0,8,0,0,0,0 

35 DATA"IN A CRUDE ROOM CARVED O 
UT OF BEDROCK. THERE IS A CRAWL 
WAYTO THE NORTH, AND ANOTHER EXI 
T TO THE WEST.",13,0,0,8,0,0 

36 DATA"IN A SMALL, RECTANGULAR 
ROOM, WHICH SEEMS TO HAVE AT 
ONCE BEEN A LIBRARY. THERE I 

S ONLY ONE EXIT- TO THE WEST.", 

0 , 0 , 0 , 8 , 0,0 

37 DATA"IN A CRUDELY CARVED ROOM 
. THERE IS AN EXIT TO THE SOUTH 
, AND A SMALL WELL DESCENDS HER 
E. A THIN MIST DRIFTS FROM THE 

WELL.",0,11,0,0,0,0 

38 DATA"IN A SMALL, ROUND ROOM 
ATOP A STAIRCASE. THE STAIRC 

ASETO THE WEST LEADS DOWNWARD, A 
ND THERE IS A NARROW PASSAGE TO 
THEEAST.",0,0,15,9,0,9,"IN A SMA 
LL INTERSECTION. PASSAGES LEAD 
EAST, WEST, AND SOUTH.",0,16, 

19,14,0,0 

39 DATA"AT THE WEST END OF A LAR 
GE PIT. IT STRETCHES ABOUT HALFW 
AY ACROSS THIS LARGE ROOM, AND 

THERE IS NO WAY AROUND IT. A 
N EXIT LEADS WEST.",0,0,0,15,0, 

40 DATA"AT THE EAST END OF A LAR 
GE PIT. AN EXIT LEADS EAST.",0,0 
, 18 , 0 , 0,0 

41 DATA"IN A SMALL, ROUND ROOM. 
THERE IS AN EXIT TO THE WEST, 
AND A LADDER ATTATCHED TO A H 

OLEIN THE CEILING. IT'S SPOOKY 
UP THERE!",0,0,0,17,20,0 


42 DATA IN A SMALL ROOM WITH MAN 
Y CIRCLES ON THE FLOOR. MY GUE 
SS IS THAT THIS IS SOME SORT OF 

GAME ROOM. THERE IS AN EXIT 
TO THE WEST.",0,0,0,15,0,0 

43 DATA"IN A SMALL, ROUND ROOM, 
WITH A COMPUTER TERMINAL AT¬ 
TATCHED TO THE EASTERN WALL. 
THERE IS A HALLWAY TO THE SOU 

TH,AND A LADDER LEADING DOWNWARD 

■", 0 , 0 , 0 , 0 , 0,0 

44 7 DATA"IN # A # SMALL, SQUARE ROOM. 

THERE ARE HALLWAYS BOTH TO TH 
E NORTH AND SOUTH.",20,29,0,0,0 

45 DATA"IN A SMALL ROOM, WITH AN 
'X' ON THE FLOOR. THERE IS A 
HALLWAY TO THE NORTH.",23,0,0 

,0,0,0,"IN THE HALLWAY. THE HAL 
L TURNS WESTWARD HERE, AND GOES 
BACK SOUTH.",0,22,0,24,0,0 

46 DATA"IN A SMALL, PLAIN ROOM. 
THERE IS AN ELECTRICAL WALL 0 

UT-LET HERE, WHICH LOOKS OPER¬ 
ATIONAL. THERE IS A HALLWAY 
TO THE EAST, AND ANOTHER WEST.", 
0,0,23,25,0,0,"IN A VERY PLAIN R 
OOM. HALLS EXIT EAST AND NORTH." 
,26,0,24,0,0,0 

47 DATA"AT , A # CURVATURE IN THE HA 
LL.THE HALL RUNS EAST AND SOUTH 

HERE.",0,25,27,0,0,0,"IN A SM 
ALLBARE ROOM. THEREARE EXITS EA 
ST AND WEST.",0,0,28,26,0,0 

48 DATA"IN A SMALL ROOM. THERE 
IS AN EXIT TO THE WEST, AND A LA 
RGESLAB OF METAL ON THE EAST WAL 
L. IT LOOKS LIKE A DOOR YOU WOUL 
D SEE ON A VAULT.",0,0,0,27,0,0 

49 DATA"IN A SMALL, THREE-WAY 
JUNCTION. THERE ARE PASSAGES 
NORTH, SOUTH, AND WEST. THE 
FLOOR HERE IS WET.",21,30,0,3 

2 , 0,0 

50 DATA"IN A CURVED SECTION OF 
HALLWAY. THE HALLWAY CURVES 
EASTWARD HERE, AND ALSO GOES 
NORTH. HERE, THE FLOOR IS DA 

MP.",29,0,31,0,0,0 

51 DATA"IN A TOTALLY PLAIN, WHIT 
E ROOM, EXCEPT FOR A SAFE IN TH 
E EAST WALL. THERE IS AN EXIT 

WESTWARD.",0,0,0,30,0,0 

52 DATA"IN A DAMP, GRAY ROOM, WI 
TH AN EXIT TO THE EAST. THE ROO 
M IS OTHERWISE PLAIN, EXCEPT FO 
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R A FULL-LENGTH MIRROR ON THE W 
ESTWALL.",0,0,29,0,0,0 

53 DATA"IN A ROOM AT THE END OF 
THE HALL. THE DOOR TO THE EA 

ST IS WIDE OPEN, AND THROUGH IT 
YOU CAN SEE SUNLIGHTi",0,0,34 
,27,0,0 

54 DATA"OUTSIDE.",0,0,0,0,0,0 

55 DATA NORTH,1,SOUTH,1,EAST,1,W 
EST,1,UP,1,DOWN,1,SCORE,2,STAY,3 
,WAIT,3,ZAP,8,SHOOT,8,SET,9,GET, 
10,TAKE,10,DROP,11 

56 DATA INVENTORY,6,INSERT,12,PR 
ESS,13,PUSH,13,BREAK,14,PULL,15, 
USE,16,READ,7,LOOK,7,EXAM,7,PLUG 
,17,VERB,4,HELP,5,WEAR,18,REMOVE 
,19,SAVE,20,LOAD,21 

57 DATA MY SUPER-AMMO GHOST-BLAS 
TER,GUN,1000,A SMALL DISK,DISK,3 
,A SMALL METALLIC ORB,ORB,1001,M 
Y GUN'S POWER PACK,PACK,0,"AN OL 
D, BROWN, AND LONG ROPE",ROPE,0 

58 DATA A REGGIE JACKSON BASEBAL 
L CARD,CARD,1000,A NOTE LEFT FOR 

ME,NOTE,1,A GLOB OF ECTOPLASMIC 
SLIME,SLIM,-1,A PAIR OF SUNGLAS 
SES,GLAS,5 

59 DATA *,BLUE,0,*,GREE,0,*,WHIT 
,0,*,YELL,0,*,RED,0,*,GHOS,0,*,A 
LL,0,A SMALL BOX WITH A SWITCH 

ATTATCHED,BOX,1002,*,SWIT,0 
,*,SAFE,31,*,LEVE,10,*,SPUD,0,*, 
COMP,20,*,BUTT,0,*,MIRR,3 2,*,SLA 
B, 28 

60 DATAFAT BLUE GHOST,-1,STUPID¬ 
LOOKING GREEN GHOST,2,SMART-LOOK 
ING WHITE GHOST,-1,SMALL YELLOW 
GHOST,-1,TALL RED GHOST,-1,TALL 
BLUE GHOST,-1,SMALL GREEN GHOST, 
-1,STUPID-LOOKING WHITE GHOST,-1 
,FAT YELLOW GHOST,-1,SMART-LOOKI 
NG RED GHOST,-1 

61 DATA VERY UGLY LITTLE SPUD,14 

62 DATA OUCH!,CAN'T YOU READ?,BU 

MP!,SMASH!,"IF THIS KEEPS UP, I' 
M GOING TO NEED A FACELIFT!",I 
HATE BUMPING INTO WALLS!,I SURE 
MUST BE CLUMSY!,THESE WALLS ARE 
JUMPING OUT AND HITTING ME! 

63 IF D(CN,L)=8 AND D(3,8)<>L TH 
EN PRINT"THAT PASSAGE IS BLOCKED 
!":GOSUB88:GOSUB68:RETURN 

64 REM DIRECTIONS 

65 IF L=4 AND CN=2 AND D(2,4)=4T 
HEN C$="EVERY TIME I TOUCH THE F 
IELD, A BRIGHT FLASH KNOCKS ME 


AWAY!":RETURN 

66 IF D(CN,L)<>0 THEN L=D(CN,L) 
ELSE GOSUB 68 

67 RETURN 

68 RM=RND(8):PRINTRM$(RM):BT=BT+ 
1: A$=" » 

69 IF BT=3 THEN PRINT"stop slamiti 
ing me into things!" ELSE IF BT= 
5 THEN PRINT"i'11 make you pay t 
he doctor bill!" 

70 IF BT=7 THEN PRINT"i can't ta 
ke it anymore!!!" 

71 IF BT=8 THEN EXEC32544:PRINT" 
i have been slammed around so 

much, i can't... i feel." 

,," where am i?":L=RND(L) 

72 CN=7:RETURN 

73 FOR X=1 TO NC:IFINSTR(A$,LEFT 
$(C$(X),4))=0 THEN NEXT 

74 IF X=NC+1 THEN GOSUB 79:RETUR 
N 

75 CN=X:NN=C(CN):IFC(CN)<7THENRE 
TURN 

76 OJ=0:FORX=lTONO:IFINSTR(A$,0$ 
(X))=0THENNEXT 

77 IF X=N0+1 THEN GOSUB80:CN=NC+ 
1:RETURN 

78 OJ=X:RETURN 

79 PRINT"I DON'T UNDERSTAND THAT 
VERB. ••: RETURN 

80 IF C(CN)=7 THEN OJ=0:RETURN E 
LSEPRINT"I DON'T UNDERSTAND THAT 

OBJECT.":RETURN 

81 FOR X=1T0NG:IFG(X)=0THENNEXT 

82 IF RND(12-X) =1 AND G(X)OL TH 
EN GOSUB 108 ELSE 84 

83 IF G(X)=L THEN C$="A "+G$(X)+ 
"0JUST ENTERED THE ROOM.":G0SUB8 
8 

84 IF G(X)<>L THEN 87 

85 IF RND(NG-X)<2 THEN C$="THE " 
+G$ (X)+"@SLIMED ME!! !":GOSUB88:G 
OSUB206 

86 IF RND(13-X)=1 THEN C$=»THE " 
+G$(X)+"@JUST LEFT THE ROOM.":GO 
SUB108:GOSUB88 

87 NEXT:RETURN 

88 IFPEEK(1024+448) 032THEN PRIN 
T: G0T088 ELSEPRINT0448,"";:FORY= 
1 TO LEN(C$):D$=MID$(C$,Y,1):IF 
D$="@"THEN PRINT, ELSE PRINT D$? 

89 NEXT:IFMF=1THENFORY=1TO900:NE 
XT:GOTO91 

90 A$=INKEY$:IFA$=""THEN90 

91 PRINT0448:PRINT0480,STRING$(3 
1,32);:PRINT0480,""; 
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1 92 C$="":RETURN 

93 RETURN 

94 IF NS=J3 THEN PRINT "MY PISTOL 
HAS NO POWER LEFTRETURN 

95 IF 0J=J3 THEN RETURN 

96 IF OJ=16 THEN PRINT"THAT WOUL 
D WASTE ALL OF THE PIS-TOL'S ENE 
RGYI " 

97 IF OJ=15 THEN PRINT"WHICH ONE 
?":RETURN 

98 IF OJC1J3 OR OJ>16 THEN GOSUB 
191:PRINT"SHOOTING IT HAS NO EFF 
EOT.":NS=NS-1:RETURN 

99 00=0J-9 

1J3J3 IF G (00) <>L THEN 00=00+5: IF 
00>NG THEN 00=00-5 
1J31 IF G (00) <>L THEN PRINT"HE ' S 
NOT HERE Ill":RETURN 
1J32 NS=NS-1:G0SUB191: IF GS=GS (00 
) THEN GOSUB193IGOSUB112:RETURN 
1J33 G0SUB18 8: RETURN 
1J34 PRINT"MY GUN IS SET TO";GS:L 
INEINPUT"SET IT TO:"?A$ 

1J35 IF A$<" 1" OR A$>"5" THEN PRI 
NT"MY GUN CAN ONLY BE SET FROM 0 
NE TO FIVE.":RETURN 



1J36 GS=VAL(A$) : RETURN 
1J2J7 REM GHOST MOVEMENT 
1J38 IFRND ( 2 ) =1THENY=1ELSEY=-1 
1J39 G (X) =G (X) +Y : IF G(X)<1 OR G(X 
) >NL THEN Y=-(Y*2) :G0T01j39 
11J3 IF G (11) <14 OR G (11) >18 THEN 
Y=-(Y*2):G(11)=G(11)+Y 

111 RETURN 

112 G (00) =J3 

113 B=RND(5):IF B=1 THEN PRINT"Z 


APPIN' MAKES ME FEEL GOOD!" ELSE 
IF B=2 THEN PRINT"THE GHOST IS 
INSTANTLY","INCINERATED."ELSEIFB 
=3 THEN PRINT"BYE, TWIRP!"ELSEIF 
B=4THENPRINT"GH0STZAPPER!"ELSEIF 
B=5THEN PRINT"I AIN'T FRAID OF N 
O GHOSTS!" 

114 SC=SC+1J3 : F0RY=1T0 NO:IFO(Y) = 

lj3j3j3+00 THEN C$ = »AS THE GHOST DI 
SAPPEARS, IT DROPS SOMETHING 

. . . ":0(Y)=L 

115 NEXT:RETURN 

116 IF 0J=16 THEN 12j3 

117 IF O(OJ)<>L THEN PRINT"I CAN 
'T GET THAT!":RETURN 

118 0(0J) =1J3J3J3 : PRINT"TAKEN. " 

119 RETURN 

12J3 FOR X=1T0N0: IF 0(X)=L AND LO 
$ (X) <>"*"THEN O (X) =1J3J3J3 

121 NEXT:PRINT"OK.":RETURN 

122 IF 0J=16 THEN 125 

123 IF O(OJ) 01J3J3J3 THEN PRINT"I 
DON'T HAVE IT!":RETURN 

124 0(OJ)=L:PRINT"DROPPED.":RETU 
RN 

125 FOR X=1 TO NO: IF 0(X)=lj3j3j3 T 
HEN O(X)=L 

126 NEXT:PRINT"OK.":RETURN 

127 SS=J3 : GOSUB316 : Y=J3 :EXEC3 254 4 : 
PRINT"I AM CARRYING THE FOLLOWIN 
G: ": PRINT: F0RX=1T0N0: IFO (X) =1J3J3J3 
THENPRINTLO$(X):Y=Y+1 

128 NEXT: IF 0(9)=3j3j3j3 THEN PRINT 
"I AM WEARING THE GLASSES.":Y=1 

129 IF Y=J3 THEN PRINT"NOTHING. " 
13J3 A$=INKEY$ : IFA$=" "THEN13J3ELSE 

SS=3 2J3:G0SUB316: RETURN 

131 IF 0JO18 AND 0JO23 THEN PR 
INT"I DON'T KNOW HOW TO PUSH THA 
T.":RETURN 

132 IF 0(17) 01J3J3J3 AND 0J=18 THE 
N PRINT"I DON'T HAVE IT!":RETURN 

133 IF 0J=18 AND 0 (17) =lj3j3j3 AND 
L=4THEN PRINT"THE BOX DISAPPEARS 

IN A BRIGHT FLASH, KNOCKING ME 
TO THE FLOOR!":D(2,4)=5:L$(4)=L 
EFT$ (L$ (4) ,65) : 0 (17) =J3 : RETURN EL 
SE IF 0 J=18 AND O (17) =1J3J3J3 THEN 
PRINT"NOTHING HAPPENS.":RETURN 

134 IF L<>31 THEN PRINT"I DON'T 
SEE IT HERE.":RETURN ELSE IF L=3 
1 AND SM=1 AND OJ=23 THEN PRINT" 
WHICH ONE?":INPUTA$:IFINSTR(A$," 
DON' T") OJ3 THEN BP=1 ELSE IF INS 
TR(A$, "PANIC") Oj3 THEN BP=2 ELSE 

134 


230 





136 PRINT"OK. " : IF BP=1 AND SG=)3T 
HEN PRINT"THE GLASSES HAVE GONE 
DARK! I CAN'T SEE!":BD=1:PD=1 

137 IF BP=1 THEN D(3,27)=33 

138 IF BP=2 THEN PD=J3:IF BD=1 AN 
D SG=J3 THEN BD=)3: PRINT"I CAN SEE 

NOW. " : D (3,2 7) =2 8 

139 RETURN 

14)3 PRINT "I HAVE SCORED"+STR$ (SC 
)+" POINTS":PRINT"IN"+STR$(MV)+" 
MOVES. 

141 RETURN 

142 PRINT"I CAN'T BREAK THAT!":R 
ETURN 

143 RETURN 

144 IF L=10 THEN 147 

145 PRINT"I DON'T KNOW HOW TO PU 
LL THAT." 

146 RETURN 

147 S$(1)="E":S$(2)="T":S$ (3)="R 
":S$(4)="P" 

148 EXEC32544 

149 FOR C=1T04 

15J3 IF S (C) =2 AND C<4 THEN NEXT 
ELSE IF S(C)=2 AND C=4 THEN 158 

151 FOR Z=1 TO 3 

152 Y=RND(3J3) :FORX=lTO Y 

153 BS=76+(32*C)+Z 

154 PRINT0BS,CHR$(RND(26)+64) ; 

155 S=RND(3):IF S<3 THEN SL$(Z,C 
)=S$(C) ELSE SL$(Z,C)="X" 

156 PRINT@BS,SL$(Z,C) 

157 NEXT:SOUND5.0+(C*20),1:NEXT:G 
OSUB163:NEXT 

158 IF S(l)=l THEN PG=-PG:IF PG= 
1 THEN PRINT®115,"ON" ELSE PRINT 
@115,"OFF" 

159 IF S(3)=1 THEN O(5)=L:S(3)=2 
:GOSUB165 

16)3 IF S(4)=1 THEN 0(4)=L:S(4)=2 
:GOSUB165 

161 IF S(2)=1 THEN Tl=ll:GOSUB 1 
66 

162 RETURN 

163 IF SL$(1,C)=SL$(2,C) AND SL$ 
(2,C)=SL$(3,C) THEN S(C)=1 ELSE 
s(C)=p 

164 RETURN 

165 PRINT0480,"THE MACHINE'S PAN 
EL OPENS, AND SOMETHING DROPS O 
NTO THE FLOOR.RETURN 

166 B$=STRING$(32,128) 

167 PLAY"L255T255" 

168 L=22 

169 PRINT@48)3, "WHAT'S HAPPENING? 

ii • 

/ 


17J3 B$=STRING$ (32,175) 

171 Y=2J3J3 : FOR X=lT02j3 : SCREENj3, j3 : 
Y=Y-1J3 : FORZ=lTOY: NEXT: SCREENj3,1: 
NEXT: SCREENJ3,1 

172 FOR X=J3 TO 7 

173 PRINT@32*X,B$ ? 

174 PRINT0448-3 2*X,B$ ? 

175 FOR Y=1T024:NEXT 

176 PLAY STR$(X+l) 

177 NEXT 

178 F0RX=lT01j3j3j3: NEXT 

179 B$=STRING$ (32,128) : F0RX=7T0J3 
STEP-1 

18J3 PRINT@32*X , B$ ? 

181 PRINT@448-32*X,B$? 

182 F0RY=1T024:NEXT 

183 PLAY STR$(X+l) 

184 NEXT 

185 SCREEN J3, j3 

186 PRlNT@48p,"" 

187 RETURN 

188 S=RND(5):IF S=1THENPRINT"THE 
GHOST IS NOT AMUSED."ELSEIFS=2T 

HENPRINT"THE GHOST LAUGHS AT YOU 
R PUNY ATTEMPTS TO DESTROY HIM 
."ELSEIFS=3THENPRINT"IT DOESN'T 
EVEN SCRATCH HIM." 

189 IF S=4 THEN PRINT"YOU'RE NOT 
DOING MUCH TO THIS GUY." ELSE 
IF S=5 THEN PRINT"THE GHOST SPE 

LLS THE WORD 'WIMP' IN THE DUST 
AND POINTS AT YOU." 

19J3 RETURN 

191 F0RX=255T02J3J3 STEP -GS: POKE1 
4j3 , X: EXEC433 45 : NEXT 

192 RETURN 

193 PLAY"05L195V31":F0RY=1T03:FO 
RX=1T08:PLAY"V-?"+STR$(X):NEXTX, 
Y 

194 F0RX=1T0GS*3J3 : A=RND (2J3J3) -1J3J3 
:POKE14j3,15j3+A: EXEC43345: NEXT 

195 F0RX=1T05 : POKE14J3 , J3 : EXEC4 3 34 
5:NEXT 

196 RETURN 

197 FOR Y=1 TO 6 STEP 2:FOR X=Y* 
1J3 TO Y*1J3+15 : POKE 14J3 , X: EXEC433 
45:NEXT X, Y: F0RX=1T01J3J3 : POKE14j3 , 
2j3j3 : EXEC4 3 3 4 5: NEXT: RETURN 

198 IF 0 (OJ) 01J3J3J3 THEN PRINT"I 
DON'T HAVE IT!":RETURNELSE IF OJ 
<2 OR 0J>4 THEN PRINT"I CAN'T DO 

THAT!":RETURN 

199 IF OJ=2 THEN NS=NS+2 

2j3j3 IF OJ=3 THEN NS=NS+3 ELSE IF 
OJ=4 THEN NS=NS+5 
2j31 C$="IT HAS BEEN INSERTED. A 
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LL OF ITS ENERGY IS REMOVED BY 
<MORE>":GOSUB88:C$="THE PISTOL. 
THE OBJECT THEN DISAPPEARS. 
":O(OJ)=0 

202 RETURN 

203 RETURN 

204 IF OJ=22 AND L=20 THEN GOSUB 
217 

205 IF OJ=9 THEN 326ELSERETURN 

206 OG=X:FOR Y=1 TO NO:IFO(Y)=OG 
+1000THENO(Y)=1000:D1=Y 

207 NEXT 

208 FOR Y=5 TO NO 

209 IF O (Y) =1000 AND YOD1 THEN 
O(Y)=1000+OG:Y=NO+l 

210 NEXT 

211 IF 0(5)=1011 AND 0G=11 AND L 
=16 AND CV=0 THEN PRINTCHR$(34)? 
"HE'S TRYING TO GRAB THE ROPE! 

HE WON'T GET IT! IT'S THE ONLY 
THING I HAVE A FIRM GRIP ON..." 

? CHR$(34) ?:CV=1 ELSE 215 

212 A$=INKEY$:IFA$=""THEN212 ELS 
E PRINT 

213 PRINT" THE GHOST, TRYING TO 
STEAL THEROPE, DRAGS YOU THROUG 

H A MAZE OF ROOMS AND, GIVING U 
P, FLIES THROUGH A WALL. YOU H 
IT THE WALL, SOMEWHAT DISHEVE 
LED. BUT YOU HAVE WON!!"?sO(5)= 
1000:L=17:CN=0 

214 A$=INKEY$:IFA$=""THEN214ELSE 
CN=1:PRINT:RETURN 

215 D1=0:RETURN 

216 F0RD1=1T0LEN(A$):PRINTCHR$(8 
)?MID$(A$,D1,1)?"*"?:FORY=1TO50: 
NEXT:NEXT:PRINTCHR$(8)?:RETURN 

217 EXEC32544 

218 A$=" WELCOME TO RALF-0 COMTE 
RM SIX...":GOSUB216 

219 IF GM(1)=1 AND GM(2)=1 AND G 
M(3)=1 THEN 225 

220 A$=“ WOULD YOU LIKE TO PLAY" 
+CHR$(13)+" A GAME?":G0SUB216 : L 
INEINPUTA$:IFLEFT$(A$,1)<>"Y"THE 
NA$=" FINE. GOODBYE.":GOSUB216:R 
ETURN 

221 IF GM(1)=0 THEN A$=" HOW ABO 
UT A NICE GAME"+CHR$ (13 ) +" OF C 
HESS?":G0SUB216:LINEINPUTA$:IFLE 
FT$(A$,1)="Y" THEN 229 

222 IF GM(2)=0 THEN A$=" HOW ABO 
UT A SHARK ATTACK?G0SUB216:LIN 
EINPUTA$:IFLEFT$(A$,1)="Y"THEN 2 
56 

223 IF GM(3)=0 THEN A$=" HOW ABO 


UT GLOBAL"+CHR$(13)+" THERMONUC 
LEAR WAR?":G0SUB216:LINEINPUTA$: 
IFLEFT$(A$,1)="Y"THEN 277 

224 A$=" END OF LIBRARY.GAMES* 
"+CHR$(13):GOSUB216:G0T0226 

225 A$=" COMTERM SIX DISABLED. 
"+CHR$(13):G0SUB216 

226 PRINT:A$=" DISCONNECTED. 

"IG0SUB216:RETURN 

227 EXEC32544:A$=" GOOD GAME.":G 
0T0226 

228 EXEC:A$=" YOU LOSE.":G0SUB21 
6:G0T0226 

229 ZZ=0:Z=0:CLS5:PRINT00:F0RX=1 
T05:PRINT0480:NEXT:PRINT @288:FOR 
Y=1T08:FORX=0TO 31 STEP 4:Z=Z+1:P 
S=Y*32+X:IFY/2=INT(Y/2)THENPS=PS 
+2 

230 PRINT0PS,""?:PRINTUSING"##"? 
Z? 

231 IF Y/2=INT(Y/2)THENPS=PS-2 

232 NEXT:NEXT 

233 GOSUB 245 

234 X=0:Y=0:D3=-l 

235 IF PEEK(343)=247 THEN D1=-4E 
LSE IF PEEK(344)=247 THEN Dl=4 

236 IF PEEK(341)=247 THEN D2=-l: 
D3=-D3 ELSE IF PEEK(342)=247 THE 
N D2=l:D3=-D3 

237 IF INKEY$=" "THEN243 

238 X=X+D1:IF X<0 THEN X=0 ELSE 
IF X>28 THEN X=28 

239 Y=Y+D2:IFY<0THENY=0 ELSEIFY> 
7THENY=7 

240 P0KEE1,E2:P0KEE1+1,E3:El=105 
7+X+(32*Y)+D3:E2=PEEK(El):E3=PEE 
K(E1+1) :POKE El,42:P0KEE1+1,42 

241 D1=0:D2=0 

242 GOTO 235 

243 IFX/4+8*Y+1<>F1+F2 THEN238EL 
SEF1=F1+F2:ZZ=ZZ+1:SOUND(X+Y)*7+ 
1,5:E2=159:E3=E2:IFZZ=>2THENF0RX 
=1TO200:SCREEN0,1:SCREEN0,0:NEXT 
:GM(1)=1:D(6,20)=18:GOSUB320:SC= 
SC+5:G0T0227 

244 GOTO 238 

245 A=RND(5)+ 30:PRINT@480,""? 

246 C=RND(15)-8:F0RX=1T03:B=A:G1 
=0 

247 IF B>=8 THEN B=B-8:G1=G1+1:G 
0T0247 

248 IF B=1 THEN PS=PS-2 

249 PS=G1*32+B*4+1056 

250 IF G1/20INT (Gl/2) THENPS=PS+ 
2 

251 POKEPS,45:POKEPS+1,45:SOUND( 
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Dl+B)*6+1,5:POKEPS,175:POKEPS+1, 
175 

252 A=A+C 

253 NEXT 

254 F1=A+1-C:F2=C 

255 RETURN 

256 EXEC:F0RX=1T011:H=RND(28)+1: 
V=RND(14)+1:PRINT@V*32+H,"*"?:NE 



257 H1=0 

258 FOR X=1 TO 10 

259 PS=RND(450)+1024:IFPEEK(PS)< 
>32 THEN 259 

260 SC(X)=PS:POKE PS,19:NEXT:P=1 
520 

261 POKE P,20:IFPEEK(343)=247 TH 
EN Dl=-.5 ELSE IF PEEK(344)=247 
THEN Dl=.5 

262 IF PEEK(341)=247 THEN D1=D1- 
32 ELSE IF PEEK(342)=247 THEN D1 
=Dl+32 

263 El=El+lsIFEl>10THENEl=l 

264 IF SC(El)<1024 THEN 263 ELSE 
POKE SC(El),32 

265 IF SC(El)<P THEN D2=l ELSE D 
2=-l 

266 IF SC(El)-32>P THEN D2=D2-32 
ELSE IF SC(El)+32<P THEN D2=D2+ 

32 

267 IF RND(5)=1 THEN D2=-D2 

268 SC(El)=SC(El)+D2 

269 IF SC(El)<1024 THEN SC(E1)=S 
C(El)+33 ELSE IF SC(E1)>1535 THE 
N SC(E1)=SC(E1)-33 

270 IF PEEK(SC(E1))=42 THEN POKE 
SC(El),32:SC(El)=0:SOUND1,1:Hl= 

Hl+1:IF Hl=10 THEN GOSUB322:GOSU 
B27 6:SC=SC+15:D(2,20)=21:GM(2)=1 
:G0T0227 

271 POKE SC(El),19 


272 IF SC(El)=P THEN SCREEN0,1:F 
ORX=1TO1000:NEXT:G0T0228 

273 IF D1=0 THEN 275 ELSE POKE P 
, 32:P=P+D1:IF P<1024 THEN P=P+33 

ELSE IF P>1535 THEN P=P-33 

274 D1=0: 

275 GOTO 261 

276 L$(16)="IN A LONG, WIDE HALL 

THERE IS METAL PLATING FA 
STENED TO THE FLOOR, WHICH SEEMS 
TO BE COVERING SOMETHING. THER 
E ARE EXITS EAST AND WEST.":D(3 
,16)=18:D(4,18)=16:RETURN 

277 Dl=l:P=1088:EXEC:FORX=1TO10: 
P=P+32:FORY=P TO P+32:IF RND(3)= 
1 THEN POKE Y,159 

278 NEXT:NEXT 

279 El=200:PRINT016,"$";:PRINT@1 
5,CHR$(175)?:PRINT017,CHR$(175)? 

:PRINT0 4 8,CHR$(175) ?:P=1520 

280 FOR Z=1 TO 5 

281 POKE P,30:IF PEEK(343)=247 T 
HEN Dl=-1 ELSE IF PEEK(344)=247 
THEN Dl=l 

282 FORX=lTOEl:NEXT:El=El-30 

283 POKE P,32:P=P+Dl-32:IF P<102 
4 OR PEEK(P-32)<>32 THEN POKE P, 
159:FORY=1TO100:NEXT:POKEP,3 2:PO 
KEP-32,32:P=1520:El=200:IF PEEK( 
1040)=32 THEN GM(3)=1:GOSUB285:G 
0T0227ELSENEXTZ:G0T0228 

284 GOTO 281 

285 FORX=1TO200:SCREEN0,0:SCREEN 
0,1:NEXT:FORX=1TO100:CLSRND(8):N 
EXT:EXEC32544:GOSUB324:SC=SC+25: 
RETURN 

286 IF O (OJ) <>1000 AND 0(0J)OL 
AND O(OJ) 03000 AND OJ<10 AND OJ 
>15 AND 0JO21 THEN PRINT"I DON' 
T SEE IT HERE.":RETURN 

287 IF 0J=1THENPRINT"THE GUN REA 
DS"+STR$(GS)+".":PRINT"IT HAS"+S 
TR$ (NS)+" SHOTS LEFT." ELSE IF O 
J>1 AND 0J<5 THEN PRINT"IT'S FOR 

MY GUN." ELSE IF 0J=5 THEN PRIN 
T"IT'S VERY THICK AND STRONG." 

288 IF OJ=0THENCN=1:RETURN 

289 IFOJ=6THENPRINT"WHAT'S REGGI 
E GOT THAT I DON'T HAVE?"ELSEIF 
0J=7THENPRINT"IT SAYS 'ESTOY ENF 
ERMO.'"ELSEIF0J=8THENPRINT"IT'S 
GOOEY."ELSEIFOJ>9ANDOJ<16 OR 0J= 
21THENX=RND(2):IFX=1THENPRINT"IT 
'S MAKING FACES AT ME!" 

290 IF 0J>9 AND 0J<16 AND X=2 OR 
0J=21 AND X=2THEN PRINT"! CAN S 
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EE RIGHT THROUGH IT I"ELSEIFOJ=16 
THENPRINT"SO MANY THINGS TO SEE! 

M 

291 IF OJ=25 THEN PRINT"ON IT, W 
RITTEN IN LARGE LETTERS,IS THE W 
ORD 'PANIC!"' 

292 IF OJ=19 AND SM=£ THEN PRINT 
"IT'S A COMBO SAFE. I NEED THE 

COMBINATION TO OPEN IT."ELSEIFO 
J=19ANDSM=1THEN PRINT"SAFE? WHAT 
SAFE?? INSIDE THAT MOLTEN CAV 

ITY, THERE ARE TWO BUTTONS." 

293 IF OJ=23 THEN PRINT"THERE IS 
A GREEN 'PANIC","BUTTON', AS WE 

LL AS A RED 'DON'TPANIC BUTTON'! 
n 

294 IF OJ=9THENPRINT"THEY SAY 'L 
ASERSHADES- caution.'THERE ARE T 
WO METAL PRONGS ON ONE SIDE." 

295 IF OJ=17 THEN PRINT"IT IS SM 
ALL AND STURDY."ELSE IF OJ=18 TH 
EN PRINT"I DON'T KNOW MUCH ABOUT 

HI-TECH!" 

296 IF 0J=2J3 THEN PRINT"JUST LIK 
E VEGAS!"ELSEIF OJ=22 THEN PRINT 
"IT'S SO UGLY, IT MAKES ME WANT 

TO RALPH!" ELSE IF OJ=24 THEN P 
RINT"HAVEN'T I SEEN THIS OBJECT 
SOME-WHERE BEFORE?" 

297 RETURN 

298 IF 0(9) 01J3J3J3 AND O (9) 03J3J3J3 
AND 0J=9 THEN PRINT"I DON'T HAV 

E THEM!"IRETURNELSEIF 0J=9 AND P 
G=1 THEN PRINT"OK. A GREEN LIGH 
T LIT ON THEM, SO I TOOK THEM OU 
T OF THE PLUGGE=1:RETURN 

299 IF 0J=9 AND PG=-1 THEN PRINT 
"IT DIDN'T DO ANYTHING. I GUESS 

THE GLASSES DON'T WORKRETURN 
3J3J3 PRINT"I DON'T KNOW HOW TO PL 
UG THATRETURN 
3J31 EXEC32544 : PRINT"THE VERBS I 
KNOW ARE:":PRINT 
3J32 A1=J3 : F0RX=1T0NC: PRINTC$ (X) , : 
Al=A1+1: IFA1 > 2 3 THENG0SUB3 j3 5 : Al=j3 
3J33 NEXT 

3J34 A$=INKEY$ : IFA$=" "THEN3J34ELSE 
RETURN 

3J35 PRINT"<MORE>" ? : GOSUB3j34 : PRIN 
TSTRING$ (6,8) ? : SS=32j3 : GOSUB316 :R 
ETURN 

3J36 IF ZZ=1THENC$="RETURN TO THE 
START ROOM IN Ij3j3 MOVES." 

3J37 IF ZZ=2THENC$ = "I DON'T THINK 
THIS ADVENTURE IS SOLVABLE!" 

3J38 IF ZZ=4THENC$ = "I KNOW SOMETH 


ING YOU DON'T KNOW!" 

3J39 IF ZZ=3 THEN C$ = "I HELP THOS 
E WHO HELP0THEMSELVES." 

31J3 IF L=9 THEN C$="DESTROY THE 
SPUD WITH THE@DYNAMITE." 

311 IF L=29 THEN C$="TO WIN, PUT 
THE SLIME IN THE PITAND CHANT T 

HE SAYING." 

312 IF RND(15)=1 THEN C$="NOW, N 
OW! DON'T PUSH THE PANIC BUTTON 
!" 

313 RETURN 

314 IFPEEK(1248)032THENPRINT"<M 
ORE>"?ELSERETURN 

315 A$=INKEY$:IFA$=""THEN315 ELS 
E PRINTSTRING$(6,8)?:RETURN 

316 M=FIX(SS/256):BZ=SS-M*256:M= 
M+4 : POKE 32544 + 13j3,M:POKE 32544 + 
131,BZ:RETURN 

317 PLAY"L4T4O3L8CL4.GL8BL4.DL8D 
L8 .CL8BAGL2A?? ? L4BGCBL1AL4BBBL8A 
G? ? ? L4ABL2EL4.GL8BAGFL1G":RETURN 

318 PLAY"P8L2GL4.GL8BAGL1G?? ?P2L 
2FGL4.AL8AL4.CL8CBAL4GAA ?? ? BGEGL 
2.AL8GGL4BBL8ABL4A ?? ? 

319 PLAY"03L8GEL4GEL8GAL8BL4BL8D 
CBL4AL2G":RETURN 

32J3 PLAY"03T4L4P4DEL8FGL1GP4L4CD 
L8EFL1F?? ? L8P4FEL4EDL2ECP4L8CAL4 
AGL1F ?? ? P4L4DEFL1GL8P4CDL4DEL1A? 
? ?P2L4EDL2ECL4CCFEL1ED 

321 PLAY"P4L4BBL8BL8BL4BAL4.AL8B 
L4AGFL8EAL1A?? ?L4P4CCDCBBCL8DAAA 
L2AL1A?? ? L4P4BL4BBL8BAL4AAL8BAL4 
AGFL8EAL1A ?? ? P3L8EL4.EL8FEDL4DDL 
8EDL1G":RETURN 

322 PLAY"T5 ?P4L4AGF#BL8AGAL2A?? ? 
P4L4BAL8GF#L2EAP4L4AGF# ?? ? BL8AGA 
L2AP4L4BAL8GF#? L4E ? L2.D 

323 PLAY"P4L8EF#GL4GL8ABL4AL8GF# 
L2E ?? ?P4L8EF#GGGAGL1AP4L8CBL4GB? 
? ? AL8GF#L2EP4L4GGL8AGL1D":RETURN 

324 PLAY"03T4 ? L4ED#EF#L2GL4F#EL2 
D#F#L4ED#EF#? ? ? 

325 PLAY"L2GL4F#EL2D#BL4BBBL8AGL 
2AA?? ?L4BBBL8F#GL2BL4BGL2F#E":RE 
TURN 

326 IF 0(9) <>3j3j3j3 THEN PRINT"THE 
Y WON'T WORK IF I'M NOT","WEARIN 
G THEM. " : RETURNELSEIF GE=J3 THEN 
PRINT"THEY DON'T WORK!":RETURN 

327 PRINT"ON WHAT? "?:LINEINPUTA 
$:GOSUB76 

328 IF 0JO19 AND 0JO24 THEN PR 
INT"THE LASERLOCK WON'T REGISTER 

THAT OBJECT. I THINK IT WIL 
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L ONLY LOCK ONTO MAGNETIC SUB¬ 
STANCES. " :RETURN 

329 GOSUB 197 

330 IF OJ=24 AND SG=0 AND SM=1 T 
HEN EXEC:PRINT"WITH A FLASH OF L 
IGHT, THE LASERBEAM RICOCHETS OF 
F THE MIRROR, HITTING THE GLASS 
ES SQUARELY IN THE MIDDLE."ELSE 
333 

331 A$=INKEY$:IFA$=""THEN331 ELS 
E PRINT" THEY ARE MELTING, MELT 
ING... AND NOW THEY ARE GONE!": 
0(9)=0:SG=l:CN=0:C$=" ":IF BD=1 
THEN BD=0:RETURN 

332 A$=INKEY$:IFA$=""THEN332ELSE 
PRINT"HOWEVER, SINCE THE GLASSES 

WEREN'T POLARIZED CORRECTL 
Y, THELASER BURNT RIGHT THROUGH 
YOUR EYES AND INTO YOUR BRAIN." 
:G0T0353 

333 IF OJ=19 AND SM=1 THEN PRINT 
"THERE'S NO SAFE LEFT!":RETURN E 
LSE IF OJ=19 THEN PRINT"IT WORKE 
D! THE SAFE MELTED!":SM=1:0(22) 
=L: RETURN ELSE PRINT"THE MIRROR 
ABSORBS ITS ENERGY." 

334 IF 0J<>9THENPRINT"I CAN'T WE 
AR THAT!":RETURNELSEIFO(9)=3000 
THEN PRINT"I'M WEARING THEM ALRE 
ADY!":RETURNELSEPRINT"OK." : 0(9) = 
3000:RETURN 

335 IF 0J<>9 THEN PRINT"I'M NOT 
WEARING THAT!":RETURNELSEIFO(9)< 
>3000 THEN PRINT"I'M NOT WEARING 

THEM!":RETURNELSEPRINT"I CAN'T! 
THEY'RE STUCK BY SOME INVISIBL 
E FORCE!":RETURN 

336 GOSUB340:PRINT"SAVING "F$" T 
0 "A$" . " : 0PEN"0",DN,F$ 

337 PRINT#DN,L,GM(1),GM(2),GM(3) 

,L$(4),GS,NS,PG,D(3,8),ZZ,T1,SC, 
S (1),S(2),S(3),S(4) ,MF,LL,MV,D(6 
,20),D(2,20),D(3,27),GE,BD,SM,SG 
,D(3,16),D(4,18),L$(16),CV:FORX= 
1T0N0:PRINT # DN,0(X) :NEXT:F0RX=1T 
ONG:PRINT # DN,G(X):NEXT:CLOSE # DN: 
EXEC:CN=0:RETURN 

338 GOSUB340:PRINT"LOADING "F$" 
FROM "A$".":OPEN"I",DN,F$ 

339 INPUT#DN,L,GM(1),GM(2),GM(3) 
, L$ (4) , GS , NS , PG , D (3,8) , ZZ , T1, SC, 
S(1),S(2),S(3),S(4),MF,LL,MV,D(6 
,20),D(2,20),D(3,27),GE,BD,SM,SG 
,D(3,16),D(4,18),L$(16),CV:FORX= 
1T0N0:INPUT#DN,0(X):NEXT:F0RX=1T 
ONG:INPUT# DN,G(X) :NEXT:CLOSE#DN: 


EXEC:CN=0:RETURN 

340 EXEC32544:PRINT"AT THIS POIN 
T, IT IS CRUCIAL THAT YOU PRE 
SS <BREAK> AND TYPE <CONTxENTER 
>!" ;:LINEINPUTA$:LINEINPUT"FILEN 
AME:";F$:IFF$=""THENF$="NONAME." 

341 PRINT"[C] CASSETTE OR [D] DI 
SK?" 

342 B$=INKEY$:IFB$<"C"ORB$>"D"TH 
EN342 

343 IF B$="C"THENA$="CASSETTE":D 
N=-1ELSEA$="DISK":DN=1 

344 PRINT"READY »A$"." 

345 B$=INKEY$:IFB$=""THEN345ELSE 
RETURN 

346 EXEC:A$="A TOAST TO":F0RX=1T 
05:PRINT032*(X-l):PRINT@32*X+11, 
A$:F0RY=1T0130:NEXT:SOUND(200-X* 
15),1:NEXT:A=0:A$=" YOUR":B$="VI 
CTORY! " 

347 A=A+1:PRINT0224:IF A<9 THEN 
PRINT0224+A,A$; 

348 IFA<10THENPRINT @ 2 4 9-A,B$;E LS 
E350 

349 FOR Y=1TO10:NEXT:SOUND 230,1 
:G0T0347 

350 PRINT0223+A,A$;:PRINT0249-A, 
B$;:GOSUB 317 

351 EXEC:PRINT" OH, YE ADVENTUR 

ER, YOU HAVE CONQUERED THIS CH 

ALLENGE. (SORRY, BUT WE DO 

N'T HAVE ANY MEDALS FOR YOU. 
WILL YOU SETTLEFOR A CIGAR AND A 

PIN?)":GOSUB318 

352 PRINT:PRINT" YOU SCORED"SC" 
POINTS IN":PRINTMV'MOVES.":FORX= 
0TO1STEP0:A$=INKEY$:IFA$=""THENN 
EXTELSERUN 

353 A$=INKEY$:IFA$=""THEN353ELSE 
EXEC32544::FOR X=1 TO 15:PRINTTA 
B(X);"YOU DIED.":NEXT 

354 A$=INKEY$:IFA$=""THEN354ELSE 

352 ^ 
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Save yourself from Adventure nightmares with .. 


THE THIRD RAINBOW 
ADVENTURES TAPE OR DISK 


Sure, typing in listings can be instructional, but you don’t want to spend 
your valuable computing time on an Adventure of a different kind — 
debugging your typing. No one needs that headache. So give yourself a break 
and get the Third Rainbow Adventures Tape or Disk Set. They include all 19 
Adventures in the book; just pop them in and you’re ready for action! No fuss, 
no worry, and no lost weekends spent typing, typing, typing. 

The Third Rainbow Adventures Tape is only $9.95, Two-Disk Set $14.95 

You can use your VISA, MasterCard or American Express to order the tape 
or disk by telephone at (800) 847-0309 or you can enclose payment and mail 
your order to: 

Third Rainbow Adventures 

The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 


Yes! Send me The Third Rainbow Adventures: □ Tape for $9.95* 

□ Two-Disk Set for $14.95* 


Name _ 

Address - 

City_State_ZIP_ 

□ Payment Enclosed or □ Charge to: 

□ VISA □ MasterCard □ American Express 

Account Number_Expiration Date- 

Signature____ 

*Non-U.S. orders add $2 (U.S. currency only) to cover additional postage. Kentucky residents add 5% sales tax. In 
order to hold down costs, we do not bill. (Please note: The tape and disk are not stand-alone products. You need 
to purchase the book for loading and operating instructions.) 





The Rainbow Bookshelf 


Fill out your CoCo library 
with these selections 


The Complete Rainbow Guide to OS-9 

Authors Dale Puckett and Peter Dibble show how to take 
advantage of OS-9's multitasking and multiuser features. An easy- 
to-read, step-by-step guide packed with hints, tips, tutorials and free 
software in the form of program listings. 

Book $19.95 

Disk Package $31 (2 disks, book not included) 


The Rainbow Introductory Guide to Statistics 

Dr. Michael Plog and Dr. Norman Stenzel give a solid introduction 
to the realm of statistical processes and thinking for both the 
beginner and the professional. 

Book $6.95, Tape or Disk $5.95, Package $11.95 


The First Rainbow Book of Adventures 

Contains 14 winning programs from our first Adventure contest. 
Includes Sir Randolph of the Moors, Horror House, One Room, Dr. 
Avaloe and more. Plus hints, tips on solving Adventures. 

Book $3.50, Tape $3.50 


The Second Rainbow Book of Adventures 

Featuring 24 of the most challenging Adventure games ever 
compiled. Meet the Beatles and battle the Blue Meanies, find a 
hidden fortune, or win the heart of a mysterious princess. Ring 
Quest, Secret Agent Man, Dark Castle, Curse of Karos and more! 
Book $13.95, Tape $13.95 


The Third Rainbow Book of Adventures 

The excitement continues with 19 new Adventures. Discover 
backstage intrigue at the London Theatre, attempt a daring space 
rescue, or defeat evil in the year 2091 as a genetic android. Evil 
Crypt, Spy master, Time Machine, The Amulet, and that’s only the 
beginning! 

Book $11.95, Tape $9.95, Two-Disk Set $14.95 



The Rainbow Book of Simulations 

20 award-winning entries from THE RAINBOW’S first Simulations 
contest. You are a Civil War Commander, an air traffic controller, 
a civil defense coordinator, or a scientist on Mars . . . your wits are 
on the line. 

Book $9.95, Tape $9.95 

The Second Rainbow Book of Simulations 

The 16 winners from our second Simulations contest. Fly through 
dense African jungle, bull your way down Wall Street, lead a bomb 
squad, or try your hand at Olympic events. Test your skills and 
talents. Book $9.95, Tape $9.95, Disk $10.95 

Coming soon: A complete Rainbow guide to 
using OS-9 Level II on the Color Computer 3 


I want to start my own Rainbow Bookshelf! 

Name_ 

Address _ 

City_____ 

State_ZIP_ 

□ Payment Enclosed, or □ Charge to: 

□ VISA □ MasterCard □ American Express 

Account Number ~ ___ 

Card Expiration Date _ 


Signature _ 

Please send me: 

□ The Rainbow Book of Simulations $ 9.95. 

□ Rainbow Simulations Tape $9.95. 

□ The Second Rainbow Book of Simulations $ 9.95. 

□ Second Rainbow Simulations Tape $ 9.95. 

□ SecondRainbow Simulations Disk $10.95 . 

□ The Complete Rainbow Guide to 0S-9 (book only) $19.95. 

□ Rainbow Guide to OS-9 Disk Package (2 disks) $31.00. 

□ The Rainbow Book of Adventures (first) S 3.50 yiSf 

□ Rainbow Adventures Tape (first) S 3.50 

□ The Second Rainbow Book of Adventures $13.95. 

□ Second Rainbow Adventures Tape $13.95. 

□ The Third Rainbow Book of Adventures $11.95. 

□ Third Adventures Tape $ 9.95. 

□ Third Adventures Disk Set (2 disks) $14.95 . 

□ Introductory Guide to Statistics $ 6.95. 

□ Guide to Statistics Tape or Disk (indicate choice) $ 5.95. 


□ Guide to Statistics Package (indicate choice of tape or disk) $11.95_ 

Add $1.50 per book Shipping and Handling in U.S. _ 

Outside U.S., add $4 per book _ 

Kentucky residents add 5% sales tax _ 

(Allow 6 to 8 weekslor delivery) Total- 

Mail to: Rainbow Bookshelf, The Falsoft Building, P.O. Box 385, 
Prospect, KY 40059 

To order by phone (credit card orders only ) call (800) 847- 
0309, 8 a.m. to 5 p.m. EST. For other inquiries call (502) 
228-4492. 

Please note: The tapes and disks offered by The Rainbow Bookshelf are not stand-alone products. 
That is. they are intended to be an adjunct and complement to the books. Even if you buy the tape 
or disk, you will still need the appropriate book. OS-98 is a registered trademark of the Microware 
Systems Corporation. 




Let your learning Adventure continue with . . . 


The 



THE COLOR COMPUTER MONTHLY MAGAZINE 


HE RAINBOW is the most comprehensive 
publication a happy CoCo ever had. 

U It’s the #1 authority for detailed 
information on the Color Computer. 

A monthly issue contains more than 200 
pages and up to two dozen programs, 14 
regular columns and as many as 20 product 
reviews. And advertisements: THE RAINBOW is 
known as the medium for advertisers — which 
means every month it has a wealth of information 
unavailable anywhere else about new products! 

Hundreds of programsareadvertised in its pages each 
month. 

Every single issue of THE RAINBOW covers the wide 
spectrum of interests in the Tandy Color Computer — from 
beginners’ tutorials and arcade games to telecommunica¬ 
tions and business and finance programs. Helpful utilities and 
do-it-yourself hardware projects make it easy and fun to expand 
your CoCo’s capabilities. And, monthly reviews by independent 
reader reviewers take the guesswork out of buying new software 
and hardware products. 

Join the tens of thousands who have found THE RAINBOW to 
be an absolute necessity for their CoCo. 


YES! Sign me up for a year (12 issues) of THE RAINBOW. 


Name _ 
Address 
City — 
State_ 


.ZIP. 


Payment Enclosed □ or Charge to: 

Visa □ MasterCard □ American Express □ 


S3 


My Account #■. 
Signature _ 


Card Expiration Date 




Mail to: THE RAINBOW 

The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 

To order by phone (credit cards orders only ) call (800) 847- 
0309,8 am to 5 p.m. EST. For other inquiries call (502) 228- 
4492. 

Subscriptions to the RAINBOW are $31 a year in the United 
States. Canadian rate U.S. $38. Surface rate to other countries 
U.S. $68: air rate U.S. $103, All subscriptions begin with the 
current issue. Please allow up to 6 to 8 weeks for first copy. 
Kentucky residents please add 5% sales tax. U.S. currency 
only, please. Prices subject to change. 

In order to hold down non-editorial costs, we do not bill. 
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THE THIRD RAINBOW 


0TVRES 

DISK SET 


19 Great New Programs for the 
Tandy® Color Computer 1, 2 and 3 
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Program Index 

The Third Rainbow Adventures Disk Set 


Escape — Escape the four-room mansion and a mind-twisting challenge. 

The Amulet — Find the five mystical stones to expand your life 100 years. 

Spymaster — As Agent 27, deprogram the nuclear missiles and avoid 
international catastrophe. 

Ghost Town — There’s gold in them thar hills! 

Aandark — Map areas of the new world for colonization. But dangerous 
territory awaits on the new planet. 

The Adventures of Johnny Zero — Save the International President from 
enemy agents as a genetic android in 2091. 

The Sword and the Sorcerer — Preserve the people of Ling Shai from 
enslavement by the evil and immortal Sorcerer. (A four-part Adventure.) 

An Actor’s Nightmare — Backstage intrigue at the London theatre. 

The Time Machine — Time is of the essence to save the universe. 


Balm — Soothing revenge as you become the Adventure, determined to 
terminate anyone brave enough to enter your cavern. 

The Professional — Hot on the trail of international jewel thieves. 

Time Travelers — Gather treasures of the ages with Dr. Tempus’ 
time machine. 

Evil Crypt — Explore the underground maze to obtain your powers 
while avoiding bottomless pits, graves that kill and flesh-frying 
fires. 

The Adventure of Cleopatra’s Pyramid — Peril on the banks of the 
treacherous Nile. 

Iconia — Attempt a daring space rescue. 

The Escape of Embroilment — Don’t dare go in without the Super 
Ammo Ghostblaster. 



NOTE: While this disk is provided for convenience, several programs featured 
in the book will not run with the disk drive plugged in. It will be necessary 
to transfer these programs to tape before using. In addition, special merge 
instructions are included for combining Cleopatra’s Pyramid files for use on 
tape. 



The disks contain the programs that are featured in The Third 
Rainbow Book of Adventures, published by Falsoft, Inc. They 
are not stand-alone products, but are intended and sold as 
companions to the book. Information in the book is needed for 
proper loading and operation of these programs. 



The Rainbow Bookshelf 


$14.95 (two-disk set) 
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